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.