program baigiai;

uses crt;

var A:array[1..200] of integer;

      n,i,d:byte;

      t,t2:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

t:=0;  t2:=0;  d:=0;

for i:=1 to n do

 begin

  write('A[',i,']= ');

  readln(A[i]);

  t:=t+A[i];

  if A[i] mod 5=0 then

   begin

    d:=d+1;

    t2:=t2+A[i];

   end;

 end;

write('Day vua nhap la: ');

for i:=1 to n do

 write(A[i],' ');

writeln;

writeln('Tong cac phan tu cua day la: ',t);

writeln('Co ',d,' phan tu chia het cho 5 va tong cua chung la: ',t2);

readln

end.

program ct;

uses crt;

var i,n,S,d:integer;

A:array[1..200] of integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

begin

  write('nhap mang A[',i,']='); readln(A[i]);

end;

write('day so vua nhap la');

for i:=1 to n do write(a[i]:2);

writeln;

S:=0; d:=0;

for i:=1 to n do

begin

if (A[i] mod 5=0) then

    begin 

          S:=S+A[i];

          d:=d+1;

    end;

end;

writeln('tong cac phan tu chia het cho 5 la',S);

writeln('co',d,' so chia het cho 5');

readln

end.