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

Ввод должен быть с клавиатуры

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.