Program tinh_tong;

uses crt;

const : N:=100;

Var i,tong:integer;

begin

clrscr;

tong:=0; i:=1;

while i<=N do

begin

tong: = tong + i;

i:=i+1;

end;

Writeln('tong cua 100 so tu nhien dau tien la ',tong);
Readln ;
End.