var a, b: Integer; begin { Ввод чисел из файла input.txt } Assign(input, 'input.txt'); Reset(input); Readln(a, b); Close(input); { Вывод чисел в файл output.txt } Assign(output, 'output.txt'); Rewrite(output); Writeln(a, ' ', b); Close(output); end.