program bug; {$H+} uses SysUtils; function GetString: String; begin end; begin WriteLn(Format('%s', [GetString()])); end.