program Test;

var
    fout: text;
    a   : integer;

begin
    assign( fout, 'test.out' );
        rewrite( fout );

        a := 1;
        writeln( fout, a );
    close( fout );
end.