Program kthkII;

uses crt;

var i, n, s, N : integer;

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

begin

write('Nhap so nguyen N: '); readln(N);

write('Nhap do dai cua day so: '); readln(n);

for i:=1 to n do

begin write('A[',i,']='); readln(A[i]); end;

for i:=1 to n do write('A[',i,']= ', A[i]);

s:=0;

for i:=1 to n do begin 

if A[i] mod 5=0 then s:=s+A[i]; end;

writeln('Tong cac so la: ', s);

readln;

End.

program tinh_tong;

uses crt;

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

      n,i,tc,tl,t5:integer;

begin

      clrscr;

      write('Nhap n: ');  readln(n);

      tc:=0;  tl:=0;  t5:=0;

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

                  if A[i] mod 2=0 then tc:=tc+A[i] else tl:=tl+A[i];

                  if A[i] mod 5=0 then t5:=t5+A[i];

            end;

      writeln('Tong cac phan tu co gia tri chan la: ',tc);

      writeln('Tong cac phan tu co gia tri le la: ',tl);

      writeln('Tong cac phan tu chia het cho 5 la: ',t5);

      readln;

end.