Program P141;
uses U4;
var s : string;
begin
 s:='BBB';
 writeln('U5.k=', U5.k);
 writeln('U5.m=', U5.m);
 writeln('U5.s=', U5.s);
 writeln('U4.m=', U4.m);
 writeln('U4.s=', U4.s);
 writeln('m=', m);
 writeln('s=', s);
 readln;
end.