⚃mn giúp em với ạ em cảm ơn trước ⚃ Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, az,..aN. Tính tổng các phần tử chia hết cho 3 và 5?

Program BTH;
uses crt;
var a:array[1..10000] of longint;
i,n,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 3=0) and (a[i] mod 5=0) then
                        s:=s+a[i];
        end;
        writeln('Tong cac so chia het cho 3 va 5 la: ',s);
        readln;
end.

program oken;

uses crt;
var a: array[1..100] of integer;
       i,n,sum: 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 3=0) and (a[i] mod 5=0) then
                        sum:=sum+a[i];
           end;
        writeln('Tong=',sum);
        readln;
end.