Составте программу нахождения максимального из четырёх чисел a,b,c,d. Пример ввода: 2 5 7...

Question

Составте программу нахождения максимального из четырёх чисел a,b,c,d.

Пример ввода:

2 5 7 1

Пример вывода:

Большее из чисел равно 7

Answer 1

Uses crt;
var a,b,c,d:integer;
begin
writeln('Введи числа:');
read(a,b,c,d);
writeln; write('Наибольшее из введенных чисел: ');
if aif cif a>c then write(a) else write(c);
end.