Program Series35;
Const
n=100;
Var
K:integer;
sum,sum_all:integer;
A:integer;
i:integer;
Begin
write('Enter please K: '); readln(K);
sum_all:=0;
for i:=1 to K do
begin
sum:=0;
repeat
//write('Введиете элемент(конец набора = 0)');readln(A);
A:=random(9);
sum:=sum+1;
until a = 0;
writeln(sum-1);
sum_all:=sum_all+sum-1;
end;
writeln('Всего наборов: ',sum_all);
end.