Cho mảng A với n số nguyên nhập từ bàn phím. Tính tổng các số chẵn chia hết cho 5

program oken;
uses crt;
var a: array [1..100] of longint;
    n,s,i: longint;
begin
        clrscr;
        write('Nhap so phan tu cua mang: '); readln(n);
        s:=0;
        for i:=1 to n do
                begin
                        write('A[',i,']: ');
                        readln(A[i]);
                        if a[i] mod 5=0 then s:=s+a[i];
                end;
        writeln('Tong cac phan tu chia het cho 5: ',s);
        readln;
end.