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

for i := 1 to n do begin

if ( число > 9 and число < 100) then

Счётчик = счётчик + 1;

end;