program Obl_silni;
uses crt;
var
n:byte;
function silnia(n:byte):longint;
begin
if n=0 then silnia:=1
else
silnia:=n*silnia(n-1);
end;
begin
writeln('podaj liczbe naturalna');
readln(n);
writeln(n,'!=',silnia(n));
readln
end.
program Obl_silni;
uses crt;
var
n:byte;
function silnia(n:byte):longint;
begin
if n=0 then silnia:=1
else
silnia:=n*silnia(n-1);
end;
begin
writeln('podaj liczbe naturalna');
readln(n);
writeln(n,'!=',silnia(n));
readln
end.