Составьте программу паскаль вычисления суммы натуральных чисел не превышающих заданного числа n

Var
  a,n,i:integer;
Begin
  Write('Введите число ');
  Readln(n);
  for i:= 1 to n do
    a:=a+i;
  Write('Сумма всех натуральных чисел до n (включительно) равна ',a);
End.