Verified answer

Ответ:

var

 a, k: integer;

begin

 writeln('Введите целые числа, окончание ввода 0');

 k := 0;

 repeat

   readln(a);

   if (a > 9) and (a < 100) or (a < -9) and (a > -100) then k := k + 1;

 until a = 0;

 write('Колличество двузначных: ', k)

end.