Допустим, что a и b входят в этот промежуток.
program test;var a, b, sum, i: integer;begin write('Enter two integers:'); readln(a, b); sum:=0; for i:=a to b do sum:=sum+i; write('Sum = ', sum); readln;end.
Допустим, что a и b входят в этот промежуток.
program test;
var a, b, sum, i: integer;
begin
write('Enter two integers:');
readln(a, b);
sum:=0;
for i:=a to b do
sum:=sum+i;
write('Sum = ', sum);
readln;
end.