program rekurencja_silnia;
uses crt;
var liczba,licz,si,i:longint;
    znak:char;
function silnia(n:longint):longint;
         Begin
         IF n=0 then silnia:=1
                else silnia:=n*silnia(n-1);
         end;
function silnia_2(k,sila,licznik:longint):longint;
         Begin
         sila:=1;
         licznik:=1;
             For i:=1 to k do
               Begin
               sila:=sila*licznik;
               licznik:=licznik+1;
               end;
         silnia_2:=sila;
         end;
Begin
     textcolor(white);
            clrscr;
        gotoxy(26,10);
        writeln('**************************');
        gotoxy(26,11);
        writeln('*                        *');
        gotoxy(26,12);
        writeln('*        Copyright       *');
        gotoxy(26,13);
        writeln('*         by P8M         *');
        gotoxy(26,14);
        writeln('*                        *');
        gotoxy(26,15);
        writeln('**************************');
        gotoxy(26,21);
        writeln('[ENTER] ---> By kontynuowac');
            readln;
repeat
textcolor(white);
clrscr;
write('Podaj liczbe calkowita: ');readln(liczba);
writeln('Silnia(reurencja) wynosi ',silnia(liczba));
writeln('Silnia(iteracyjnie) wynosi ',silnia_2(liczba,licz,si));
textcolor(red);
writeln;
writeln('Chesz ponownie obliczyc silnie? [T/N]: ');
znak:=upcase(readkey);
until znak='N';
end.