var A, B, i, Summ : Integer;begin
Writeln('Введите числа:'); Readln(A, B);
Summ := 0; for i := A to B do Summ := Summ + i; Writeln('Сумма равна: ', Summ); Readln;end.