1/

program oken;

uses crt;

var a:array [1..100] of integer;

       i,n,tich:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

    begin

         write('a[',i,']: '); readln(a[i]);

         if a[i] mod 5 =0 then tich:=tich*a[i];

    end;

writeln('tich cac so chia het cho 5 trong mang: ',tich);

readln;

end.

2/

program oken;

uses crt;

var a:array [1..100] of integer;

       i,n,tong:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

    begin

         write('a[',i,']: '); readln(a[i]);

         if a[i] <= 5 then tong:=tong+a[i];

    end;

writeln('tong cac so be hon 6 trong mang: ',tong);

readln;

end.

uses crt;
var i,n,t:longint;
    a:array[0..10000]of longint;
begin
        clrscr;
        write('nhap n:'); read(n);
        for i:=1 to n do
          begin
                write('nhap a[',i,']=');
                read(a[i]);
          end;
          t:=1;
        for i:=1 to n do
           begin
                write(a[i],' ');
                if a[i] mod 5=0 then t:=t*a[i];
           end;
        write('tich la:',t);
        readln;
end.