Var
x: integer;
Begin
writeln('Введите число: ');
readln(x);
if(x>=100) or (x<=9) then
writeln('Число не является двузначным')
else
writeln('Число является двузначным');
End.
