7limonchiK7

var num1, i, num2, sum:integer;

begin

write('Введите начальную координату отрезка: ') ;

readln(num1);

write('Введите конечную координату отрезка: ') ;

readln(num2);

for i:=num1 to num2 do

sum:=sum+i;

write(sum);

end.