Question

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

Answer 1

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.