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('ответ: нет')
