program sisestus;
var
 s, failinimi: string;
 fail: text;
begin
 failinimi:='katse.txt';
 assign(fail, failinimi);
 rewrite(fail);
 writeln(fail, 'Tere hommikust!');
 close(fail);
end.