(Under construction.)
type LongReal { built-in type }
program LongRealDemo; var a: LongReal; begin a := 42; WriteLn (a) end.