program aa; var f1,f2:text; begin assign(f1,'vacation.in'); assign(f2,'vacation.out'); reset(f1); rewrite(f2); writeln(f2,4); close(f1);close(f2); end.