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