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

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

2 5 7 1

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

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

Var

a, b, c, d, n : integer;

begin

write ('введите первое число ') ;

readln (a) ;

write ('введите второе число ') ;

readln (b) ;

write ('введите третье число ') ;

readln (c) ;

write ('введите четвёртое число ') ;

readln (d) ;

n:=a;

if b>n then n:=b;

if c>n then n:=c;

if d>n then n:=d;

writeln ('Большее из чисел равно ', n) ;

end.