Someone

function Sum(n:integer, m:integer):integer;
var i,
  res:integer;
begin
  res:=0;
  i:=1;
	while i<=n do begin
		m:=res+i;
		res:=m
		i:=i+1;
	end;
	Sum:=m+res+(n-1)+n;
end;