uses crt;
var i,k,pr,size,max:integer;
b:array[1..10] of integer;
a:array[1..10] of integer;
begin;
clrscr;
pr:= 1;
writeln('Введите размер массива');
readln(size);
writeln('Введите элементы массива');
FOR i := 1 TO size do
begin
readln(b[i]);
end;
begin
IF b[i] > 0 THEN
 begin
 k := k + 1;
 a[k] := b[i];
 end;
end;
FOR i := 1 TO k do
begin
pr := pr * a[i];
end;
writeln('Произведение положительных эл.массива ', pr);
writeln('Cформираванный массив A(I):');
FOR i := 1 TO k do
begin
writeln(a[i]);
end;
end.