Сзадайчей) дано натуральное число x и n найти сумму чисел от x до n

VB.
Dim x as Integer
x=InputBox("Введите x:")
Dim n as Integer
n=InputBox("Введите n:")
Dim j as Integer
Dim Summ As Long

      For j = x To n
                Summ = Summ + j
      Next i
   ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
 MsgBox(Summ)

uses crt;
var a, b, c, i, n:integer;   
s :array [1..10000] of integer;
begin
     clrscr;
     writeln ('Введите числа x и n');
     read (a, b);
     if a>b then
     begin
          n:=a;
          a:=b;
          b:=n;
     end;
     for i:=a to b do 
          c:=c+i;
     writeln ('Сумма чисел от ', a, ' до ', b, ' равна ', c);
end.

P.S. Надеюсь на благодарность и лучший ответ.