(* included by t56_include.pas. Its whole point is that it is NOT in the program's own text: if {$I} is swallowed as a comment, FromInclude is an unknown identifier and the program does not compile. *) procedure FromInclude ; begin writeln (7) end ;