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.
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.