Код программы:

var k:integer;

begin

read (k);

if (k div 100 = 0) and (k div 10 <>0) then Writeln ('true')

else writeln ('false');

end.

Обьяснение:

описываем переменную (в нашем случае число целое)

начинаем программу

читаем переменную к с клавиатуры

сравниваем, если переменная к при делении нацело на 100 выдает результат 0 и при этом переменная к при делении нацело на 10 дает результат не равный нулю, выводим значение тру, иначе выводим значение нет.

завершение программы

Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее

(я шарю в паскале, поэтому если будут вопросы еще, пиши в лс)