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

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