НА ПАСКАЛЕ ABC с простой версией(40 баллов)
Задача:

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

Формат ввода:

На первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000).

На второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел.

Формат вывода:

Целое число.

Пример входных данных

5
1 -20 -3 40 0
Пример выходных данных

2

Program n1;var n,i,a,k: integer;beginreadln(n);k:=0;for i:=1 to n dobeginread(a);if abs(a) in [10..99] then k:=k+1;end;write(k);end.