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