Решение задачи на языке pascal

Ответ:

Program trexznach;

var l:integer;

begin

Writeln(Введите любое число);

readln(l);

if (l>=100) and (l<1000) then

Begin

Writeln(Число является трехзначным);

end

else writeln(Число не является трехзначным);

end.

##

var r := ReadInteger('Введите число:').InRange(100, 999);

if r then Print('Ответ: да')

else Print('Ответ: нет')