[Protey]

Собственно возникла проблема с синтаксисом, буду очень благодарен если переведёте под MP и поясните

код на паскале

Program NewProject;
var
   a,b,c:real; //известные величины
   d:real;  //дискрэменант
begin
   writeln('Ввести коэффициенты a,b,c: ');
   readln(a,b,c);
   d := b*b-4*a*c;   //дискрэменант
   if d>0
      then writeln('D>0 => Два корня: Меньший= ',(-b-sqrt(d))/2*a,', Больший= ',(-b+sqrt(d))/2*a)
   else if d=0
      then writeln('D=0 => Один корень: x=',-b/2*a)
   else if d<0
      then writeln('D<0 => Нет действительных корней');
   readln;
end.