(Under construction.)
type Extended = LongReal;
program ExtendedDemo; var a: Extended; begin a := 42; WriteLn (a) end.