Решение задачи на языке 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('ответ: нет')