14 lines
127 B
ObjectPascal
14 lines
127 B
ObjectPascal
|
procedure p(s:string);
|
||
|
|
begin
|
||
|
|
s:='x';
|
||
|
|
writeln(s);
|
||
|
|
end;
|
||
|
|
|
||
|
|
var s:string;
|
||
|
|
|
||
|
|
begin
|
||
|
|
s:='yd';
|
||
|
|
p(s);
|
||
|
|
writeln(s);
|
||
|
|
readln;
|
||
|
|
end.
|