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

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

Программа:

Program Zadanie2;

const a1=1;

      d=1;

var M: integer;

    Sm: real;

begin 

 repeat

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

  readln(M);

 until (M>=1);

 Sm:=(2*a1+(M-1)*d)/2*M;

 writeln('Сумма арифм прогрессии=',Sm:2:0);

end.