Tính tổng các số chia hết cho 3 trong khoảng từ 5 đến 100

var i: byte;

      s: word;

Begin

    S:=0;

    For i:=5 to 100 do if (i mod 3 = 0) then

       S:=s+i;

    Write(‘tong la ‘, s);

    Readln

End.