Найти количество членов последовательности

var
  k:integer;
  x:real;
begin
k:=0;
while true do
  begin
    readln(x);
    inc(k);
    if x=0 then
      break;
  end;
  dec(k); // если 0 не входит в последовательность 
  writeln('Количество членов: ',k);
  readln;
end.

var k: integer;
    x: real;
begin
  k := -1; {k := 0;}{если 0 включается в последовательность}
  x := +100500;
  writeln('Введите члены последовательности, 0 для окончания ввода:');
  while x <> 0 do
    begin
      inc(k);
      write('? ');
      readln(x)
    end;
  writeln('Количество членов: ',k);
  readln
end.

var k: integer;
    x: real;
begin
  k := -1; {k := 0;}{если 0 включается в последовательность}
  writeln('Введите члены последовательности, 0 для окончания ввода:');
  repeat
    inc(k);
    write('? ');
    readln(x)
  until x = 0;
  writeln('Количество членов: ',k);
  readln
end.

function count(k: integer): integer;
var x: real;
begin
  write('? ');
  readln(x);
  if x <> 0
    then count := count(k + 1)
    else count := k
end;
 
var n: integer;
begin
  writeln('Введите члены последовательности, 0 для окончания ввода:');
  n := count(0); {k := 1;}{если 0 включается в последовательность}
  writeln('Количество членов: ', n);
  readln
end.

var k: integer;
    x: real;
label L1, L2;
begin
  k := -1; {k := 0;}{если 0 включается в последовательность}
  writeln('Введите члены последовательности, 0 для окончания ввода:');
  L1:
    inc(k);
    write('? ');
    readln(x);
  if x <> 0 then goto L1;
  writeln('Количество членов: ',k);
  readln
end.