Определить какое из трех, введенных пользователем, чисел максимальное и вывести его на экран.

Program rabota_01;

Var a, b, c:integer;

Begin

write ('Введите три числа через пробел: ') ;

readln (a, b, c) ;

if (a>b) and (a>c) then write ('Максимальное числа - ', a) ;

if (b>a) and (b>c) then write ('Максимальное число - ', b) ;

if (c>a) and (c>b) then write ('Максимальное число - ', c) ;

end.