Написать программу сравнения пяти чисел(введенных на клавиатуре) и чтобы вывелось большее из них. пример: 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-ю переменными.