program soma_ab2 ;

var
  i         : longint ; // usando longint ao invés de integer
  li,ls,aux : longint ;
  soma      : longint ;

begin
  // ler limites
  write ('Limite inferior: ') ;
  read (li) ;
  write ('Limite superior: ') ;
  read (ls) ;

  if (li > ls) then
  begin
    // troca li com ls
    aux := ls ;
    ls  := li ;
    li  := aux ;
  end;

  soma := 0 ;
  i := li ;
  while (i <= ls) do
    begin
      soma := soma + i ;
      i := i+1 ;
    end ;

  writeln ('a soma de ', li,' a ', ls,' vale: ', soma) ;
end.