Помогите пожалуйста решить задание (Язык Паскаль).

Проще всего эту сумму, то есть сумму всех натуральных чисел от натурального m до натурального n включительно, считать по формуле суммы арифметической прогрессии:
S = (n+1-m)(n+m)/2.
Но можно и устроить соревнование методов:

 var l, m, n: longint; s: int64; 

begin 

  while true do 

    begin 

      write('m n (m ≤ n): '); 

      readln(m, n); 

      s := n + 1 - m; 

      s := s * (n + m); 

      writeln(s div 2); 

      s := 0; 

      for l := m to n do s := s + l; 

      writeln(s) 

    end 

end. 

Для больших разностей n-m по вышеприведённой формуле всё считается практически мгновенно, а циклом слишком медленно...
И ещё здесь есть одна хитрость: в задании не сказано, что, например, m - это натуральное число. То есть если ввести
m n (m ≤ n): -100 100
то сумма должна получиться 5050, а вовсе не 0 как получается в первом ответе.
Второй же ответ вообще не по теме - там Бэйсик, а не Паскаль!

.............................

program SumOfNaturalNumbers;

var
m, n, i, sum: integer;

begin
write('Введите значение m: ');
readln(m);
write('Введите значение n: ');
readln(n);

sum := 0;

for i := m to n do
sum := sum + i;

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

end.