Напишите программу, которая выведет на экран значение true или false, в за- висимости от того, является ли введенное число x четырехзначным или нет (паскаль АВС)
program tof;
var x,c: integer;
begin
writeln('Enter your number');
readln(x);
if((x>999) and (x<10000)) then</p>
writeln('true')
else
writeln('false');
end.