Viết chương trình tính tổng các số chẵn chia hết cho 5 Và in kết quả ra màn hình? Các bạn giúp mình với nhé, mk sẽ vote 5 sao cho nak

program oken;

uses crt;

var a: array[1..1000] of longint;

      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] mod 5= 0 then tong:=tong+a[i];

    end;

writeln('tong cac so chia het cho 5: ',tong);

readln;

end.

Program BTH;
uses crt;
var a:array[1..100000] of longint;
n,i,s:longint;
begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=1 to n do
        begin
                write('a[',i,']: ');readln(a[i]);
                If (a[i] mod 2=0) and (a[i] mod 5=0)
                then s:=s+a[i];
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.