На паскале. Среди заданных чисел найти количество двухзначных.

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

program FindTwoDigitNumbers;
var
numbers: array[1..10] of integer;
i, count: integer;
begin
count := 0;

writeln('Введите 10 чисел:');

for i := 1 to 10 do
begin
write('Введите число ', i, ': ');
readln(numbers[i]);

end;

writeln('Количество двузначных чисел: ', count);
end.