poiu

var
s:= string;
.....
if (i mod 2 = 0) and (a[i] <> 0) then
begin
inc(k);
s:= s + ' ' + str(a[i]);
end;
writeln('kol-vo elementov =', k);
writeln('elementi - ', s);