program ex(f1,f2); var f2:text; begin assign(f2,'eldrethalas.out'); rewrite(f2); writeln(f2,1); close(f2); end.