Даны два целых числа A и B (A < B). Посчитать количество чисел от A до B включительно - Pascal(Паскаль)

program For7;

var
  A, B: integer;
  temp: integer;
  i: integer;

begin
  temp := 0;
  repeat
    writeln('Введите A и B:');
    readln(A, B);
  until (A < B);
  for i := A to B do
  begin
    temp := temp + i;
  end;
  writeln('Сумма :', temp);

end.