const n=15;
var a:array[1..n] of real;
i:integer;
s:string;
begin
for i:=1 to 15 do
begin
writeln('Введите значение ', i, '-ого элемента');
readln(a[i]);
if a[i]=0 then s:=s+inttostr(i)+',';
end;
Writeln(s);
readln;
end.