Пусть с клавиатуры вводятся последовательно 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"); }