Нужно написать программу на PascalABC. Вводится n чисел, найти максимальное двузначное среди них.

program zz1;

var a, n, i, max : integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры количество чисел

read (n);

for i:=1 to n do / / организуем цикл на n повторений

begin

read (a); / / вводим очередное число

if (a > 9) and (a < 100) then / / проверяем, если число двухзначное

if a > max then max:=a; / / проверяем, если число больше максимального, то записываем его в максимальное

end;

write (' максимальное двухзначное число = ', max); / / выводим ответ

end.