Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры

Question

Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры

Answer 1

var a,b,s,i:integer;

begin

readln(a,b);

if a>b then

for i:=b to a do

s:=s+i

else

for i:=a to b do

s:=s+i;

writeln(s);

end.