Написать программу которая позволяет ввести целое число лежащее в диапазоне от 1 до 999 вывести строку которая описывает это число

var a:integer;beginwriteln('Введите число от 1 до 999: ');readln(a);if (a>999) or (a<0) or (a=0) thenbeginwriteln('Неправильно введено число!');end;writeln('Ваше число: ',a);end.