RosettaCodeData/Task/Compile-time-calculation/PascalABC.NET/compile-time-calculation.pas

7 lines
78 B
ObjectPascal

const
X = 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1;
begin
writeln(x);
end.