function osszegzes (x : integer) : integer;
begin
  if x = 1 
  then osszegzes := 1
  else osszegzes := osszegzes(x - 1) + x
end;