rekurencja

program zad;
uses
  Crt;
function Silnia(n:integer):integer;
begin
  if n=1 then
    Silnia:=1
  else
    Silnia:=n*Silnia(n-1);
end;
function Potega(liczba,ktora:integer):integer;
begin
  if ktora=0 then
    Potega:=1
  else
    Potega:=liczba*Potega(liczba,ktora-1);
end;
var
  n:integer;
begin
  clrscr;
  writeln('Podaj n: ');
  readln(n);
  writeln((Silnia(2*n)+Potega(3,n))/(Silnia(5*n+1)+Potega(5,2*n+3)):0:3);
  readln;
end.