program fyr;
uses crt;
const N=100;
type massiv=array[1..N] of integer;
 
var Z: massiv;
    i,nn,count,pr:integer;
 
begin
write('N= ');  readln(nn);
 
writeln('Vvedite elementy massiva:');
for i:=1 to nn do begin
write('Z[',i,']= '); readln(Z[i]); end;
clrscr;
writeln('Vot vvedenye vami massiv: ');
for i:=1 to nn do write(Z[i],', ');
writeln;
writeln;
count:=0;
pr   :=1;
for i:=1 to nn do
if Z[i]<0 then begin inc(count); pr:=pr*Z[i];  end;
 
if count=0 then writeln('Net otric. elementov')
else
writeln('Kol-vo= ',count,';  Pr-e= ',pr);
 
 
readln;
end.