program faktoriaal;
(*Programm leiab antud arvu faktoriaali.*)
var i,n,vastus:integer;
begin
randomize;
n:=random(10)+1;
vastus:=1;
for i:=1 to n do
    vastus:=vastus*i;
writeln ('Juhuslikult valitud arvu ',n,' faktoriaal ',n,'!=',vastus);
end.