viết chương trình nhập mảng A các số nguyên có n phần tử (n<=100). Tính tổng số chia hết cho 5 hoặc 7. Đếm số không chia hết cho 3 và >k (k là số nguyên dương nhập từ bàn phím) giúp mk vs ạ

program sksk;

uses crt;

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

      i, n, k, s, dem : integer;

begin

clrscr;

s := 0;

dem := 0;

write('nhap so luong phan tu co trong day :');readln(n);

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

for i := 1 to n do

begin

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

if ((a[i] mod 5 = 0) or (a[i] mod 7 = 0)) then s := s + a[i];

if ((a[i] mod 3 <> 0) and (a[i] mod k <> 0)) then dem := dem + 1;

end;

writeln('tong cac so chia het cho 5 hoặc chia het cho 7 la :', s);

writeln('so luong cac so khong chia het cho 3 va ', k ,' la :', dem);

readln

end.