Question

Помогите Пожалуйста Решить дам 40 балов (ЯЗЫК Паскаль) ​

Answer 1

program SumOfNaturalNumbers;

var

 m, n, i, sum: integer;

begin

 writeln('Введите m и n:');

 readln(m, n);

 

 sum := 0;

 

 for i := m to n do

 begin

   sum := sum + i;

 end;

 

 writeln('Сума натуральних чисел от ', m, ' до ', n, ' равно ', sum);

 readln;

end.