Program vrt;
uses crt;
const n=10;
var A:array [1..n] of integer;
k,p,i: integer;

begin
for i:=1 to n do
begin A[i]:=random(20)-10;
writeln('A[',i,')=',A[i]);
end;


p:=1;
for i:=1 to n do
if A[i] mod 5=0
then p:=A[i]*p;
writeln('p=',p);

k:=0;
for i:=1 to n do
if A[i]>=0
then k:=k+1;
writeln('k=',k);
end.