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

ara, b, c, d, n : integer;beginwrite('введите первое число ');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.