Var F : Text;

Begin

  Assign(F, 'vystup.txt'); { prirazeni jmena souboru }
  Rewrite(F); { vytvoreni noveho souboru, nebo prepsani jiz existujiciho }
  Writeln(F, 'A'); { zapis jednoho znaku a konce radku do souboru }
  Close(F); { ukonceni prace se souborem }

End.