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 ( g<=890) . hãy tính tổng các số chia hết cho 4 và không chia hết cho k . tính tổng căn bậc hai các số còn lại . k nhập từ bàn phím

var k: array[1..250] of word;

      s1, i, n: word;

      s2: real;

Begin

   Write('nhap so phan tu: '); readln(n);

   S1:=0; s2:=0;

   For i:=1 to n do

      Begin

         Write('k[', i, '] = '); readln(k[i]);

         If (k[i] mod 3=0) and (k[i] mod 5<>0)

              Then s1:=s1+k[i]

          Else s2:=s2+sqrt(k[i]);

      End;

   Writeln('tong cac so chia het cho 3 ma khong chia het cho 5: ', s1);

   Write('tong cac so con lai: ', s2);

   Readln

End.

uses crt;
var g,k,i,s:longint; r:array[1..100000]of longint;
s1:real;
begin
clrscr;
   write('g,k=');readln(g,k);
   for i:=1 to g do 
      begin 
         write('r[',i,']=');readln(r[i]);
         if (r[i] mod 4=0)and(r[i] mod k<>0) then
            inc(s,r[i]) else s1:=s1+sqrt(i);
      end; 
   writeln(s,' ',s1);
readln
end.