var  x:array[1..50] of integer;
     i,n,m,t,e:integer;
begin
      Write('Razmer massiva = ');
       Readln(n);
        Writeln;
       m:=0; t:=1;
        Randomize;
         for i:=1 to n do
          begin
            x[i]:=Random(20);
             Write(x[i]:3);
              if x[i]=0
               then Inc(m);
                e:=x[i];
                 if (e mod 5)=0
                  then t:=t*e;
          end;
           Writeln; Writeln;
      Writeln('Nulevih elementov = ',m);
      if t>1
       then Writeln('Proizvedenie kratnih 5-i = ',t)
       else Writeln('Net elementov kratnih 5-i');
    Readln;
end.