Составьте программу нахождения максимального из четырёх чисел 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.