program hotrotinhoc ;

var i,tong : integer ;

begin

tong:=0; i:=0;

while i<=100 do

begin

i:=i+1;

tong:=tong+i;

end;

write('tong 100 so tu nhien dau tien la:',tong);

readln

end.

Câu 2 :

program hotrotinhoc ;

var i,n,tich : integer ;

begin

write('n='); readln(n);</p><p>tich:=0; i:=0 ;</p><p>while i<=n do</p><p>begin</p><p>i:=i+1;</p><p>tich:=tich*i;</p><p>end;</p><p>write('tich n so tu nhien dau tien la',tich);

readln

end.