Var

x: integer;

Begin

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

readln(x);

if(x>=100) or (x<=9) then

writeln('Число не является двузначным')

else

writeln('Число является двузначным');

End.