var a,k:integer;
begin
repeat
write ('Введите число: ');
readln (a);
if (a<1000) and (a<>0) then k:=k+1
until a=0;
writeln ('Количество чисел, меньше 1000, равно: ',k)
end.
