Napissat the program in pascal for an algorithm. Photo inside

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> with then max: = else max: = with else if b> with 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< & gt; 0 then WriteLn (Korney is not present) else Write (Any number) End.