PROGRAM PROG16;
{$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.

    New Topics:  Real Numbers

}
CONST
  C  =  -2.0;

VAR
  A, B  : Real;
  I, J  : Integer;

BEGIN
  ClrScr;
  Write('Enter a decimal number: ');
  ReadLn(A);
  WriteLn('A       [', A,      ']');
  WriteLn('A:10:2  [', A:10:2, ']');
  WriteLn('A:10:1  [', A:10:1, ']');
  WriteLn('A:10:0  [', A:10:0, ']');
  WriteLn;
  WriteLn('A:-10:2 [', A:-10:2, ']');
END.