procedure p(s:string); begin s:='x'; writeln(s); end; var s:string; begin s:='yd'; p(s); writeln(s); readln; end.