PROGRAM Copy1(Input, Output, X, Y);
    VAR
        X, Y: Text;
        C: Char;
BEGIN
    Reset(X);
    Rewrite(Y);

    WHILE NOT Eof(X) DO BEGIN
        WHILE NOT Eoln(X) DO BEGIN
            Read(X, C);
            Write(Y, C);
        END;

        ReadLn(X);
        IF NOT Eof(X) THEN
            WriteLn(Y);
    END
END.