viết chương trình nhập vào 1 dãy gồm N số nguyên (N<= 150) tính tổng các số chia hết cho k

program ct;

uses crt;

var i,n,S,k:integer;

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

begin

clrscr;

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

    for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

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

   S:=0;

    for i:=1 to n do

      if A[i] mod k=0 then S:=S+A[i];

         writeln('tong la:',S);

readln

end.  

program ct;

uses crt;

var i,n,S,k:integer;

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

begin

clrscr;

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

    for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

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

   S:=0;

    for i:=1 to n do

      if A[i] mod k=0 then S:=S+A[i];

         writeln('tong la:',S);

readln

end.