program pascal;
uses crt;
type files = text;
var f1,f2:files;

procedure option(var f1,f2:files);
var s:string;
begin
  rewrite(f2);
  reset(f1);
  while not eof(f1) do begin
    readln(f1,s);
    if s <> ''  then begin
      writeln(f2,s);
      writeln(s);
    end;
  end;
  close(f1);
  close(f2);
end;


begin
  assign(f1, GetCurrentDir + '\abc.txt');
  assign(f2, GetCurrentDir + '\abc2.txt');
  option(f1,f2);
end.