задача на рекрусию в паскале

[Cheerful-mermaid]

S=1+2+3+..+n
S=0 гачала рекрусии!!

Помогите с решением, как правельно записать программу?
в Паскале!!!

[capta1n]

program project;
var
 n : word;
 function f (n1 : word) : word;
 var
  sum : word;
  n3 : word;
  procedure s;
  begin
    if n3<=n1 then
    begin
      inc(sum,n3);
      inc(n3);
      s
    end
  end;
 begin
   sum:=0;
   n3:=0;
   s;
   f:=sum;
 end;
begin
  write ('n=');
  readln(n);
  writeln(f(n));
  readln
end.

[Plague]

зачем так усложнять?

вот это:

 function f (n1 : word) : word;
 var
  sum : word;
  n3 : word;
  procedure s;
  begin
    if n3<=n1 then
    begin
      inc(sum,n3);
      inc(n3);
      s
    end
  end;
 begin
   sum:=0;
   n3:=0;
   s;
   f:=sum;
 end;

Меняем на это

function f(n:longint):longint;
begin
  if n=0 then f:=0 else f:=f(n-1)+n;
end;

[capta1n]

S=0 гачала рекрусии!!

read the task

[Cheerful-mermaid]

а в оазделе вар мы что то описываем?