program zag; {$APPTYPE CONSOLE} var f1,f2:text a,b,n,i,j:integer; begin assign(f1,'text.in'); assign(f2,'text.out'); reset(f1); rewrite(f2); close(f1); close(f2); end.