Напишите программу, которая определяет, верно ли, что введённое число -– трёхзначное. паскаль

var

x,y,z:integer;

begin

writeln('Введите число'); readln(x);

if (x < 1000) and (x >= 100) or (x > -1000) and (x <= -100) then

  writeln('Трехзначное');

end.