Var
q, c: integer;
begin
writeln('Введите последовательно числа. 0 - окончание ввода');
q:=0;
while true do begin
readln(c);
if c=0 then break;
if (c>0) and (c<10) then Inc(q);<br>
end;
writeln('вы ввели ',q, ' однозначных чисел');
end.
{-------пример--------}
1 3 45 15 8 9 10 1
вы ввели 5 однозначных чисел