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. |