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

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.