uses crt;
var size,i,pr:integer;
x:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива');
readln(size);
writeln('Введите элементы массива');
FOR i := 1 TO size do
begin
readln(x[i]);
end;
pr := 1;
writeln('Ненулевые элементы массива');
FOR i := 1 TO size do
begin
IF x[i] <> 0 THEN
 begin
 writeln(x[i]); pr := pr * x[i];
end;
end;
writeln('Их произведение ',pr);
end.