program Silnia_dla_dodatnich;

{Z tego programu wydzielimy procedure}

var i,n:integer;
    y:real;

begin
   write('Podaj liczbe n=');
   read(n);
   y:=1;
   for i:=1 to n do
      y:=y*i;
   writeln('Silnia liczby n=',n,' wynosi ',y);
   readln;
end.