Viết chương trình nhập vào từ bàn phím,số nguyên dương N(N<=100) và dãy số nguyên A1,A2...An.-Tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5.

var a:array[1..100] of integer;
n,i,tong:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do 
begin
write(‘Nhap so thu ‘,i,’: ‘);
readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then tong:=tong+a[i];
writeln(‘Tong gia tri cac so chia het cho 3 hoac 5 la: ‘,tong);
readln
end.

uses crt;
var a:array[1..100] of integer;
    n,i,tong:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do 
   begin
      write('Nhap so thu ',i,': ');
      readln(a[i]);
   end;
   tong:=0;
   for i:=1 to n do
   if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then tong:=tong+a[i];
   writeln('Tong gia tri cac so chia het cho 3 hoac 5 la: ',tong);
   readln
end.