Program tong; Uses crt; Var x,dem:Integer; Begin Clrscr; dem:=1;x:=0; While (dem<=100) do Begin x:=x+dem; dem:=dem+1; End; Writeln('Tong cua 100 so do la ',x); Readln; End
x, the: Số nguyên; Bắt đầu Clrscr; đếm: = 1; x: = 0; Trong khi (dem <= 100) làm Bắt đầu x: = x + dem; dem: = dem + 1; Kết thúc; Viết ('Tong cua 100 số đó là', x);
