Написать программку в паскаль по методу. Фото снутри

Var a,b,c,max:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if agt;b then
   if agt;c then max:=a
   else max:=c
else
   if bgt;c then max:=b
   else max:=c;
WriteLn(max)
End.



Var a,b,c,D:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
D:=b*b-4*a*c;
if Dgt;=0 then
   Begin
   WriteLn('x1 = ',(-b-sqrt(D))/(2*a));
   WriteLn('x2 = ',(-b+sqrt(D))/(2*a));
   End
else
   if clt;gt;0 then WriteLn('Корней нет')
   else Write('Хоть какое число')
End.