Question

Решите часть 3 плз( Паскаль)

Answer 1

var a, i, anew: integer;
begin
read (a);
for i:=1 to 2 do begin 
read (anew); 
if a<anew then a:=anew 
end;
writeln (a);
end.