Mine

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