// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите целое число:');
Writeln(Abs(n).Between(10,99)?'Да':'Нет')
end.
Примеры
Введите целое число: 38
Да
Введите целое число: 152
Нет
Введите целое число: -10
Да