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

Program trexznach;

var l:integer;

begin

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

readln(l);

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

Begin

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

end

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

end.