viết chương trình tính tổng của các số nguyên chia hết cho 3t rong phạm vi từ 1 đến 30

@Meoss_

Program Tinh_tong3;

Uses Crt;

Var i,n,S:integer;

Begin

Clrscr;

Writeln(‘Ban hay nhap n’); Readln(n);

S:=0;

 For i:=1 to 30 do

begin

  if i mod 3 <> 0 then S:=S+i; end;

Writeln(‘ Tong cac so chia het cho 3 tu 1 den 30 la ‘, S );

 Readln;

End.