Напишите программу, которая вводит последовательность целых чисел заканчивающейся нулем и определяет, сколько двузначных чисел в последовательности.

PascalAbc.NET
var
  a,k:longint;
begin
  k:=0;
  a:=123454;
  while a <> 0 do
  begin
    read(a);
    if (a div 10 <=9) and (a div 10 >=1) then
      inc(k);
  end;
  writeln(k);
end.