Нужен подробный ответ, нифига не шарю Вывести на экран значение логического

Код программки:

var k:integer;

begin

read (k);

if (k div 100 = 0) and (k div 10 lt;gt;0) then Writeln ('true')

else writeln ('false');

end.

Обьяснение:

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

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

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

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

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

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

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