Помогите срочно!!!
Написать программу сравнения пяти чисел(введенных на клавиатуре) и чтобы вывелось большее из них.
Пример:
var
a1, a2, a3, max: integer;

begin
write ('Введите три числа: ');
readln (a1, a2, a3);

if a1 > = a2 then
max : = a1
else
max : = a2;

if a3 > max then
max : = a3;

writeln ('Максимальное из них: ', max);
end.

P.S только с 5-ю переменными.