Viết chương trình tính tổng các số chia hết cho 3 Mong mn giúp e với e đag gấp lắm ạ

Program tinhtong;

uses crt;

var i, SUM, N : integer; Begin

Clrscr;

Write('Nhap N: '); Readln(n);

SUM := 0; For i:=1 to N do if (i mod 3 = 0) then SUM:= SUM + i;

Write('Tong la: ', SUM);

Readln;

End.
chúc bạn học tốt 

đánh giá mk 5* nha

program tinhtong;

uses crt;

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

      n,i:byte;

      t:longint;

begin

     clrscr;

     write('Nhap so luong phan tu: ');  readln(n);

     t:=0;

     for i:=1 to n do

          begin

               write('Nhap so thu ',i,': ');   readln(A[i]);

               if A[i] mod 2=0 then t:=t+A[i];

          end;

     write('Tong cac so chia het cho 3 la: ',t);

     readln;

end.