// PascalABC.NET 3.1, сборка 1250 от 28.05.2016function F(n:biginteger):biginteger;begin if n<=1 then Result:=1 else begin Result:=1; var i:biginteger:=1; while i<=n do begin Result*=i; i+=1 end; endend;begin Writeln(F(20)+F(30))end.Результат265252859812193491538316656640000