Question

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

Answer 1

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.