program time;var n, factorial, i: integer;begin factorial := 1; readln(n); for i := 1 to n do begin factorial := factorial * i; end; writeln(factorial);end.Второй вариант выполнения программыdef factorial(n):if n = 0:return 1else:return n * factorial(n-1)print(factorial(50))