Пусть с клавиатуры вводятся последовательно N целых чисел. Найти количество двухзначных чисел

На Паскале:

Program Count;

Uses crt;

Var a, n: integer;

Begin

n:=0;

While not EOF do begin / Бесконечный цикл, выход по нажатию клавиши ESC/

Writeln ('Введите число> ') ;

readln (a) ;

If a>9 and a<100 then inc (n) ;

if a=#27 then Begin

Write (/Количество двузначных чисел /, n) ;

Break;

End;

End

На С + +:

#using "iostream"

#using namespace std;

void main ()

{ int a, n: integer;

n:=0;

{ for<< (/Введите число/) ;

If a>9 & a<100;

if a=+27; }

return 0;

system ("pause") ; }