Question

Найти максимум из трех целых чисел Паскалем.

Answer 1

Var A,B,C:integer;
Begin
ReadLn(A,B,C);
if A<B then A:=B;
if A<C then A:=C;
Write(A)
End.