program ZK; uses utree; const C=4; var F,G : text; P : pnode; N : integer; procedure vid(P:pnode; D:byte; var G:text); begin if P<>nil then with P^ do begin vid(left,D+C,G); writeln(G,' ':D,A:3); vid(right,D+C,G); end else writeln(G,' ':D,'%:3'); end; begin readln(N); assign(F,'vstup.txt'); assign(G,'vystup'); reset(F); rewrite(G); P:=tree(N,F); vid(P,0,G); close(G); end.