mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:28:03 +02:00
9 lines
104 B
ObjectPascal
9 lines
104 B
ObjectPascal
CONST
|
|
Digit:Byte=3;{did work if we use DWord}
|
|
VAR
|
|
x:Real;
|
|
BEGIN
|
|
x:=10;
|
|
WriteLn(x:1:Digit);
|
|
END.
|