Viết chương trình nhập mảng A các số nguyên có m phần tử ( n nhỏ hơn hoặc bằng 100) tính tổng số chia hết cho 5 hoặc chia hết cho 7 đếm số khong chia hết cho 3 và > k ( k là số nguyên dương nhập từ bàn phím)

uses crt;
var n, i, x, sum, cnt, k: longint;
begin
clrscr;
    read(n, k); readln;
    for i:=1 to n do 
        begin
            read(x);
            if(x mod 5 = 0) or (x mod 7 = 0) then inc(sum, x);
            if(x mod 3 <> 0) and (x > k) then inc(cnt);
        end;

    writeln(sum);
    writeln(cnt);
readln; readln;
end.

Program baitap;

Uses crt;

Var A:array[1..200] of integer;

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

Begin

Clrscr;

Write('n='); Readln(n);

Write('k='); Readln(k);

T:=0; dem:=0;

For i:=1 to n do 

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     If (A[i] mod 5=0 or A[i] mod 7=0) then T:=T+A[i];

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

     End;

Writeln('Tong so chia het cho 5 hoac 7:',T);

Writeln('Co ',dem,' so khong chia het cho 3 va >k');

Readln

End.