for ... do

program bt;

uses crt;

var

  i,T,n:integer;

begin

  clrscr;

   write('nhap n: ');

   readln(n);

   T:=1;

   for i:=1 to n do

      if i mod 5=0 then T:=T+i;

   write('T= ',T);

   readln;

end.

C2:

program bt;

uses crt;

var

  i,T,n:integer;

begin

  clrscr;

   write('nhap n: ');

   readln(n);

   T:=1;

   i:=0;

   while i<=n do

      begin

        i:=i+1;

        if i mod 5=0 then T:=T+i;

     end;

  write('T= ',T);

readln;

end.

Sử dụng While..do:

Uses crt;

var i,n,t: integer;

begin

clrscr;

write ('nhap vao n: ');  readln (n);

t:=0;

i:=1;

while i<=n do

begin

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

i:=i+1;

end;

writeln ('tong la: ',t);

readln;

end.

Sử dụng vòng lặp For...do: (cách này phù hợp hơn nếu chỉ yêu cầu tính tổng và ko yêu cầu bắt buộc sử dụng vòng lặp nào)

uses crt;

var i,n,t: integer;

begin

clrscr;

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

t:=1;

for i:=1 to n do

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

writeln ('tong la: ',t);

readln;

end.