Составьте программу,определяющую,является ли введенное с клавиатуры целое число двухзначным.
Пример ввода:
68
Пример вывода:
Да
Помогите пожалуйста)

Program PROGRAMMA;Uses crt;var a: integer;Begin clrscr;      write('Введите число a = ');      readln(a);      if (a div 10 <=0) or (a div 10 >9) then            write('Нет') else      write('Да')End.