Program Print_using;

{ This program demonstrates the use of the print using procedure.

  Written by:  Bill Collins
  Modified by: Bill Todd }


var
    number:             real;
    mask:               string[80];
    k:                  integer;

{$Iprintusg.inc}

begin
    ClrScr;
    Write('Enter mask: ');
    Readln(mask);
    For k := 1 to 10 do
      begin
          number := Sqr(Sqr(k) * Sqr(Random(k)) + random);
          If Odd(k) then number := -number;
          Writeln(Print_using(mask, number):12);
      end;
end.
                                                                              