viết pt tạo mảng A gồm (n<=100) số nguyên. Tính tổng các phần tử của mảng là bội số của một số nguyên dương k cho trước

uses crt;

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

      i, k, n, s : integer;

begin

clrscr;

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

write('nhap so k :');readln(k);

s := 0;

for i := 1 to n do

begin

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

if a[i] mod k = 0 then s := s + a[i];

end;

writeln('tong la :', s);

readln

end.

uses crt;
var n, i, x, k, res: longint;
begin
clrscr;
    read(n, k); readln;
    for i:=1 to n do 
        begin
            read(x);
            if x mod k = 0 then inc(res, x);
        end;
    writeln(res);
readln; readln;
end.