Помогите, пожалуйста!
Использовать mod и div.
Через ПАСКАЛЬ!!!
Написать программу, которая запрашивает у пользователя N целых чисел и подсчитывает, сколько среди них двузначных чисел. Программа сначала должна запросить у пользователя, сколько чисел он введет (это будет число N), а затем сами числа.
Не пользуй, пожалуйста: const, count.
Через Паскаль!

program p1;uses crt;var a,n,i,k:integer;beginwrite('Введи кол-во чисел');read(n);for i:=1 to n do beginread(a);If a div 10 <>0 thenK:=k+1;end;write('двузначных чисел ',K);end.