(Under construction.)
type MedReal = Real;
program MedRealDemo; var a: MedReal; begin a := 42; WriteLn (a) end.