Написать программу которую найдёт болшее число из 5

ar 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.