Var
a,b,i,s:integer;
begin
readln(a,b);
s:=0;
for i:=a to b do {Начнем цикл с числа а и будем выполнять до числа b}
s:=s+i; {Добавляем в нашу сумму число, которое в данный момент обрабатываем в цикле}
writeln(s); {Выводим сумму}
end;
Даже если ты не знаешь Pascal, думаю алгоритм понятен