Программа,подсчитывающая количество введёных с клавиатуры чиселпервого и второго десятков Опции

[Гость]

Помогите пожалуйста,кто знает как это решать!!!По заданию мне нужно написать программу, подсчитывающую количество введённых с клавиатуры чисел первого (от 1 до 10) и второго (от 11 до 20) десятка. Если вводится число больше 20 или меньше 0, то программа выдаёт сообщение о том, что введено недопустимое число. Если вводится 0, программа заканчивает своё выполнение и выводит результат.
Рекомендуемый экран после запуска программы: Введите число в диапазоне от 0 до 20: 25 Это недопустимое число, введите ещё раз: 15 Введите число в диапазоне от 0 до 20: 3 Введите число в диапазоне от 0 до 20: 5 Введите число в диапазоне от 0 до 20: 0
Из введённых Вами чисел 2 числа относятся к первому десятку и 1 -ко второму.

[мисс_граффити]

Считываешь число с помощью readln(х)
Анализируешь его....
Все это в цикле, выход из которого осуществляется при нажатии 0. Например, так:

readln(x);
while x<>0 do 
  begin
  {анализ}
  readln(x);
  end;