var input : text; output : text;
Line : String;
begin
assign (input, 'C:\Users\Данила\Pascal\input.txt');
reset (input);
readln (input, Line);
assign (output, 'C:\Users\Данила\Pascal\output.txt');
rewrite(output);
writeln(output, Line);
close(input);
close(output);
End.