program Rvl; var all,n,m,z :integer; f1,f2:text; begin assign(f1,'TREE.DAT'); reset(f1); read(f1,n,m); close(f1); z:=n; all:=n; while (zm then write(f2,'mishtch') else write(f2,all); close(f2); end.