var
x,y,z:integer;
begin
writeln('Введите число'); readln(x);
if (x < 1000) and (x >= 100) or (x > -1000) and (x <= -100) then
writeln('Трехзначное');
end.
var
x,y,z:integer;
begin
writeln('Введите число'); readln(x);
if (x < 1000) and (x >= 100) or (x > -1000) and (x <= -100) then
writeln('Трехзначное');
end.