Program TinhTong;

Uses crt;

Var S,i,n:Integer;                            = Khai bao bien su dung

BEGIN

Write( ‘ Nhap so n:’ );                                     =Thong bao nhap lieu

Readln( n );                                           =Nhap gtri N, (voi &N la lay d/c bien N)

S: = 0;                                            = Khoi gan gia tri ban dau cho S

For i:=1 to n do                                   = Lap voi moi i co gia tri tu 1 den N

S:=S + i;                                                  =Tinh tong cong don i vao S

Writeln( ‘Tong = ’, S);                              = Xuat ket qua tong S ra man hinh

Readln;

END.

uses crt;

var i,n,a,s: integer;

begin

clrscr;

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

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

for i:=1 to n do

if n mod a=0 then s:=s+i;

writeln ('tong la: ',s);

readln;

end.