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.
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.