посчитать количество введенных чисел пока не будет введено 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.