unit uw2984; interface procedure System(const s:string); implementation procedure System(const s:string); begin writeln(s); end; end.