даны два натуральных числа а и б требуется определить сумму чисел от а до б

var
  a, b, s, i: integer;

begin
  readln(a);
  readln(b);
  for i := a to b do
  begin
    s := s + i;
  end;
  writeln(s);
end.