1) с клавиатуры введите целое число от 0 до 1000. 2) если число введённое (<0) или (>1000), вывести текст "Ошибка ввода" и конец.
3) если число (<10), вывести текст "Однозначное"
если число (<1000) "трехзначное".
! Завтра нужно сдать, что бы в четверти было 4.

//Pascal

program number;

var

x : integer;

begin

write('Введите число: ');

readln(x);

if (x < 0) or (x> 1000) then

writeln('Ошибка ввода!')

else

if x < 10 then writeln('Число однозначное')

else if (x > 9) and (x < 100) then writeln('Число двузначное')

else writeln('Число трёхзначное');

end.