program eg8;
var x,sum:integer;
begin;
x :=1;
sum :=0;
while x<=100 do
begin
sum:=sum+x;
x := x + 1
end;
writeln(sum);
end.