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

Program rabota_01;Var a,b,c:integer;Beginwrite ('Введите три числа через пробел: ');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.