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, думаю алгоритм понятен
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, думаю алгоритм понятен