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

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.