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

Предыдущий
вопрос Следующий
вопрос

program MaxTwoDigitNumber;

var
n, i, num, maxTwoDigit: integer;

begin
writeln('Enter the number of elements:');
readln(n);

maxTwoDigit := -1;

writeln('Enter ', n, ' numbers:');
for i := 1 to n do
begin
readln(num);

end;

if maxTwoDigit <> -1 then
writeln('The maximum two-digit number is: ', maxTwoDigit)
else
writeln('There are no two-digit numbers');
end.