Решение задачи Series 12

#include <stdio.h>
int main(void)
{
    int i=0,r=1;
    while (r!=0){
        ++i;
        printf("%i:",i);
        scanf("%i", &r);
    }
    printf("%i\n",i-1);
    return 0;
}

import random

x = random.randrange(1,10)
print(x,end='; ')
k = 0
while x != 0:
    x = random.randrange(-5,6)
    print(x,end='; ')
    k += 1
    
print()
print("Amount:",k)
									

program Series12;
var
  i,R:Integer;
begin
R:=1;
i:=0;
  while(R<>0) do
   begin
     i:=i+1;
     Write('Введите ',i,' число: ');
     Readln(R);
   end;
  Writeln('в наборе ',i-1,'чисел');
  readln;
end.