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.