Triangular number

Source code

function triangular(n: integer): integer;
var i, s: integer;
begin
  s := 0;
  for i := 1 to n do
    s := s + i;
  triangular := s;
end;