Guest User

Untitled

a guest
Dec 31st, 2010
112
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Test;
  2.  
  3. var
  4.     fout: text;
  5.     a   : integer;
  6.  
  7. begin
  8.     assign( fout, 'test.out' );
  9.         rewrite( fout );
  10.  
  11.         a := 1;
  12.         writeln( fout, a );
  13.     close( fout );
  14. end.
RAW Paste Data