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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.