begin var s := ReadAllText('input.txt'); WriteAllText('output.txt',s); end.