Cycles/Sum of nums[B]

function FindSum(inpt:integer):integer;    //find sum from 1 to entered num
var s,i:integer;
begin
  for i:=1 to inpt do            //n times repeating loop
      s:=s+i;                 //summ the previuos value and present
  FindSum:=s;
end;
var n:integer;
begin
  read(n);                    //read input
                              //find sum from 1 to entered num

  write(FindSum(n));                   //Write output
end.