Mình cần gấp ạ Tính tổng sau: S=2+7++12+…+n Với điều kiện của các số để cộng là chia 5 dư 2 20đ nên các bạn làm nghiêm túc

program tinh_tong;

uses crt;

var n,i,s:integer;

begin

       clrscr;

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

       s:=0;

       for i:=1 to n do

              if i mod 5=2 then s:=s+i;

       write(‘Tong S la: ‘,s);

       readln;

end.