У меня есть дядя, и он мне дарит каждый год доллары, в один год 1 доллар, в два года два и.т.д сколько будет денег когда мне будет «N» лет — Pascal(Паскаль)

var
  i, N, M : Integer;
begin
  Writeln('Введите количество лет:');
  Readln(N);
  i := 1;
  M := 0;
  while i <= N do begin
    M := M + i;
    i := i + 1;
  end;
  Writeln('В ', N, ' лет будет ', M, ' долларов.');
  Readln;
end.