Vi du 5 trang 59

Vi du 5 trang 59: 
Chương trình sau đây sẽ tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiênđược nhập vào từ bàn phím.

program Tinh_tong; (*Khai bao ten chuong trinh*)
var N, i: integer;(* Khai bao 2 bien N va i kieu so nguyen*)
    S: longint;   (* Khai bao bien S kieu so longint*)
begin
    write('Nhap so N ='); (*In ra man hinh dong thong bao 'Nhap so N ='*)
   readln(N);           (*Lay gia tri nhap tu ban phim gan cho bien N*)
    S:=0;                (* Gan gia tri 0 cho bien S*)
    for i:= 1 to N do S:= S + i;  (* Thuc hien lenh lap S=S+i trong N lan*)
    writeln('Tong cua ', N, ' so tu nhien dau tien S =', S);
    (*In thong bao Tong cua N so tu nhien dau tien S=*)
    Readln
end.