program silnia;
var n,z:integer;
begin
writeln ('PROGRAM OBLICZY SILNIE Z DANEJ LICZBY') ;
writeln;
writeln('Podaj liczbe, ktorej chcesz liczyc silnie:') ;
readln(n);
z:=1;
z:=z*n;
if n=0 then z:=1 else
if n=1 then z:=1 else
begin
repeat
n:=n-1;
z:=z*n;
until n=1;
end;;;
writeln('Wynik:',z) ;
writeln;
writeln('KONIEC PROGRAMU') ;
readln;
end.