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

Question

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

Answer 1

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.