{ GPC demo program. For copying conditions see the file `COPYING.DEMO'. }

program LongestRealDemo;
var
  a: LongestReal;
begin
  a := 42;
  WriteLn (a)
end.