Exemplo de Recurcividade

program Recurcividade;
uses crt;
var
  numero : integer;

  function soma(n:integer):integer;
begin
   if (n>0) then
   soma := n + soma(n-1)
   else
   soma := 0;
end;

begin
  write('Digite um numero: ');
  readln(numero);
  writeln(soma(numero));
  readkey;
end.