посчитать количество введенных чисел пока не будет введено 0

var
   count_num:integer;
   number:real;
begin
  count_num:=0;
  repeat
  readln(number);
  writeln('Введенное число: ',number);
  if (number <> 0) then Inc(count_num);
  until (number =0);
  writeln('Количество введеных чисел: ', count_num);
end.