Viết chương trình con nhập từ bàn phím dãy số r gồm g phân tử số nguyên (<=890). Hãy tính tổng các số chia hết cho 4 không chia hết cho k, tính tổng c

uses crt;
var r:array[1..1000000] of longint;g,i,s,k:longint;sc:extended;
begin
   clrscr;
   write(‘Nhap so luong phan tu: ‘); readln(g);
   write(‘Nhap k: ‘); readln(k);
   for i:=1 to g do 
      begin
         write(‘Phan tu thu ‘,i,’: ‘); read(r[i]);
         if (r[i] mod 4=0) and (r[i] mod k<>0) then inc(s,r[i])
         else sc:=sc+sqrt(r[i]);
      end;
   writeln(‘Tong so chia het 4 va khong chia het cho ‘,k,’: ‘,s);
   writeln(‘Tong cac bac hai: ‘,sc:0:2);
   readln
end.