SỬ dựng ngôn ngữ lập trình pascal, viết chương trình nhập từ bàn phím số nguyê nguyên ứng n và dãy A gồm N sống nguyên A1,A2,...ĂN hãy tính tổng các phần tử trong dãy A có giá trị chia hết cho 3 và 5 và xuất kết quả ra màn hình Giúp mình với??

uses crt;

var a: array[1..100] of integer;

      i,n,s: integer;

begin

clrscr;

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

for i:=1 to n do

begin

write ('nhap 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 trong day chia het cho 3 va 5 la: ',s);

readln;

end.

uses crt;

var a: array[1..150] of integer;

i, n, sum : integer;

begin

clrscr;

sum := 0;

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

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : '); readln(a[i]);

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

end;

write('tong cac so chia het cho 3 va 5 : ', sum);

readln

end.