Даны три целых числа. Вывести на экран наибольшее из трех введенных чисел.

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

Даны три целых числа. Вывести на экран наибольшее из трех введенных чисел.

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

Var a,b,c:integer;

Begin

Write(‘Введите три целых числа: ‘);ReadLn(a,b,c);

if b>a then a:=b;

if c>a then a:=c;

WriteLn(a);

End.