type Tmass=array[1..20] of integer;
var
     A:Tmass;
     n,i,max,mk,mt,mp:integer;
begin
      repeat
        Write('Razmer massiva 0<n<=20 = ');
         Readln(n);
      until (n>0) and (n<=20);
     Randomize;
      for i:=1 to n do
       begin
         A[i]:=Random(56)-10;
         Write(a[i]:4);
       end;
      Writeln;
     max:=-MaxInt;
     mk:=0; mt:=0; mp:=0;
      for i:=1 to n do
       begin
         if A[i]>max
          then
           begin
             max:=a[i];
             mk:=1;
           end
          else
           if A[i]=max
            then Inc(mk);
         if (A[i] mod 3)=0 then Inc(mt);
         if (A[i] mod 5)=0 then Inc(mp);
       end;
      Writeln('Max = ',max);
      Writeln('Max.elementov = ',mk);
      Writeln('Kratnih 3 = ',mt);
      Writeln('Kratnih 5 = ',mp);
     Readln;
end.