Код
var x, count1,count2 : integer;
begin
count1:=0;{Обнуление количества чисел первого десятка}
count2:=0;{Обнуление количества чисел второго десятка}
writeln('Введите число в диапазоне от 0 до 20: '); {Вывод предложения ввести число от 0 до 20}
readln(x); {Считывание числа}
while x<>0 do begin{ Пока введеное число не равно 0 выполнять}
If (x>20) or (x<0) then {Если число не принадлежит отрезку от 0 до 20, то}
writeln('Это недопустимое число, введите ещё раз: '){Вывести сообщение об ошибке и предложение ввести правильное число}
else if (x<=20) and (x>10) then begin {Если число меньше либо равно двадцати и больше десяти(условие принадлежности ко второму десятку), то}
inc(count2);{Увеличить количество чисел второго десятка на 1}
writeln('Введите число в диапазоне от 0 до 20: ');{Вывести предложение ввести число от 0 до 20}
end else begin{Если не выполнились два предыдущих условие, то число пренадлежит первому десятку (0 оно быть равно не может, т.к. если бы оно было равно 0, то не произошел бы этот цикл)}
inc(count1); {Увеличить количество чисел первого десятка}
writeln('Введите число в диапазоне от 0 до 20: ');{Вывести предложение ввести число от 0 до 20}
end;
readln(x);{Считать число}
end;
writeln('Из введённых Вами чисел ',count1,' числа относятся к первому десятку и ',count2,' 1 -ко второму.');{Вывод результата}
readln;{Считывание Enter}
end.
Если что-то не поймешь, то пиши, задача простая и в ней нужно разобраться.