Урок 3_1

Дано целое число. Является ли оно двухзначным?

Program c1;

var a:integer;

begin

write ('Введите число:');

readln (a);

if(a>9) and (a<100)

  then write ('Да')

       else write('Нет');

end.