program soma_1_100 ;

var
  i, soma : integer ;

begin
  soma := 0 ;

  i := 1 ;
  while (i <= 100) do
    begin
      soma := soma + i ;
      i := i+1 ;
    end ;

  writeln ('a soma de 1 a 100 vale: ', soma) ;
end.