nhập vào số nguyên dương N(N<=100) và dãy số nguyên A1...An và sô nguyên dương k.Tính tổng các số chia hết cho k

program tong;

Uses crt;

Var

        n,k,i,S:integer;

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

Begin

        Clrscr;

        Repeat

          readln(n);

        Until (n<=100);

        For i:=1 to n do readln(A[i]);

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

        S:=0;

        for i:=1 to n do if A[i] mod k=0 then S:=S+A[i];

        write(S);

       Readln;

End.

#HNgoc

#Chuc_anh_hoc_tot

program tinh;
uses crt;
type ArrInt = array[1..1000] of integer;
var i, n, k, t : integer;
    A : ArrInt;
begin
clrscr;
t := 0;
write(' nhap so luong phan tu co dong phan tu :');readln(n);
write(' nhap so k: '); readln( k);
for i := 1 to n do
begin 
write('nhap so nguyen thu ', i,':');readln(A[i]);
end;
for i := 1 to n do
if A[i] mod k = 0 then 
t := t + A[i];
writeln('tong cac so trong day chia het cho k la:', t);
readln
end.