program tong_chia3;

uses crt;

var n,i,t:integer;

begin

       clrscr;

       repeat

              write('Nhap n: ');  readln(n);

              if n>=150 then

                     begin

                            write('n phai be hon 150. Nhap lai!');

                            readln;

                            clrscr;

                     end;

       until n<150;

       t:=0;

       for i:=1 to n do

              if i mod 3=0 then t:=t+i;

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

       readln;

end.

progrgam tong;

uses crt;

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

      N,i,T: integer;

Begin

         write('Nhap N: '); readln(N);

         while N>=150 do

         begin

                  write('Nhap lai N<150: '); readln(N);

         end;

         for i:=1 to N do

         begin

                  write('A[',i,']='); readln(A[i]);

         end;

         for i:=1 to N do

         if A[i] mod 3=0 then T:=T+A[i];

         write('Tong cac so chia het cho 3 = ',T);

         readln

End.