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

Var a,b,c,max:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if a>b then
   if a>c then max:=a
   else max:=c
else
   if b>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 D>=0 then
   Begin
   WriteLn('x1 = ',(-b-sqrt(D))/(2*a));
   WriteLn('x2 = ',(-b+sqrt(D))/(2*a));
   End
else
   if c<>0 then WriteLn('Корней нет')
   else Write('Любое число')
End.