ПАСКАЛЬ )Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до M. Значение М задайте путем ввода с клавиатуры самостоятельно.

ответ такой если неправильно прости

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

объединение северного и южного египта произошло около 3000 г. до н.э.