Program array;
var i:integer; nulls:string;
begin
for:=1 to 10 do begin
writeln ('xc' + i + 'y') Readln(x[i]);
if x[i]=0 then nulls:=nulls+' 'intostr(x[i]);
writeln('Nell elevents:');
writeln(nulls);
end;
end.