var a,b,s: integer;
begin
s:=0;
readln (a);
readln(b);
b:=b-1;
for a:=a+1 to b do begin
s:=s+a;
end;
writeln(s);
end.
Объяснение:
