Таблиця про параолімпійців у середовищи Excel ,

Код программы:var k:integer;beginread (k);if (k div 100 = 0) and (k div 10 <>0) then Writeln ('true') else writeln ('false');end.Обьяснение:описываем переменную (в нашем случае число целое)начинаем программу читаем переменную к с клавиатурысравниваем, если переменная к при делении нацело на 100 выдает результат 0 и при этом переменная к при делении нацело на 10 дает результат не равный нулю, выводим значение тру, иначе выводим значение нет. завершение программыНадеюсь мое объяснение вам Буду рад если вы отметите мое решение как лучшее(я шарю в паскале, поэтому если будут вопросы еще, пиши в лс)