Question

Составьте программу, которая запрашивает три числа и определяет наибольшее из них.

Answer 1

Var
 a,b,c:integer;
begin
 read(a,b,c);
 if a<b then a:=b;
 if a>=c then writeln(a) else writeln(c);
end.