{Винарский 15_46}
program t_15_46(input,output);

procedure prisv;
var k,d: integer; c: char; t1,t2: text;
  begin
    assign(t1,'D:\Паскаль\задача1.txt');
    assign(t2,'D:\Паскаль\задача2.txt');
    reset(t2); rewrite(t1); k:=0;
    while ((not(eof(t2)))) do
        if(eoln(t2)) then
          begin
            readln(t2);
            writeln(t1);
          end
        else
          begin
            read(t2,c);
            write(t1,c);
          end;
    close(t1);
    close(t2);
  end;

begin
  prisv;
end.