var f:text;
begin
  assign(f, 'uus.txt');
  rewrite(f);
  writeln(f, 'Tervitused uuele failile');
  writeln('Tervitused ekraanile');
  close(f);
end.