Составить программу которая вычисляет сумму первых 161 натуральных чисел (параметром цикла является переменная j,а сумма хранится в переменной m)

Var
  j,m:integer;

begin
  m:=0;
  for j:=1 to 161 do m:=m+j;
  Writeln(m)
end.

Результат
13041