tw3977.pp 319 B

123456789101112131415161718
  1. { Source provided for Free Pascal Bug Report 3977 }
  2. { Submitted by "lqs" on 2005-05-17 }
  3. { e-mail: [email protected] }
  4. var
  5. n:integer;
  6. f : text;
  7. begin
  8. assign(f,'tw3977.tmp');
  9. rewrite(f);
  10. write(f,'1');
  11. close(f);
  12. assign(input,'tw3977.tmp');
  13. reset(input);
  14. readln(n);
  15. close(input);
  16. erase(input);
  17. end.