CONST
  Digit:Byte=3;{did work if we use DWord}
VAR
  x:Real;
BEGIN
  x:=10;
  WriteLn(x:1:Digit);
END.