6 lines
96 B
ObjectPascal
6 lines
96 B
ObjectPascal
|
begin
|
||
|
|
var p: BigInteger := 1;
|
||
|
|
for var i:=2 to 100 do
|
||
|
|
p *= i;
|
||
|
|
writeln('100!=',p)
|
||
|
|
end.
|