program Silnia_dla_dodatnich;

var i,n:integer;
    y:real;

procedure Silnia;{procedura inaczej podprogram}
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);
end;

begin {program glowny}
   Silnia;{wywolanie procedury}
   readln;
end.