*Chương trình:
program tong;
uses crt;
var N,i,T: integer;
Begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do T:=T+i;
write('T = ',T);
readln
End.
*Thuật toán:
$B1:$ Nhập N;
$B2:$ Cho biến $i$ chạy từ 1 đến $N$;
$B3:$ T←T+i;
$B4:$ Thông báo kết quả và kết thúc thuật toán.