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]);

if (numbers[i] >= 10) and (numbers[i] <= 99) then
count := count + 1;

end;

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