Cho dãy A gồm N số từ a1,...,an .Tính tổng các số là bội của 3 và 5

Program TB;
Uses crt;
Var A: array[1..10000] of longint;
    i,s,n: longint;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        s:=0;
        For i:=1 to n do
                If (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then s:=s+A[i];
        Write('Tong cac so la boi cua 3 va 5 la: ',s);
        Readln
End.

var n:integer;

      s: longint;

      a: array[1..1000] of integer;

begin

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

for i:=1 to n do

begin

read(a[i]);

if (a[i] mod 5 =0) and (a[i] mod 3 = 0) then s:=s+a[i];

end;

writeln;

write('s= ',s);

readln

end.