Program V1;
var
f1:text;
f2:text;
s:string[20];
s2:string[20];
every_second_line:integer;
begin
every_second_line:=0;
s2:=' двадцять п`ять';
assign(f1,'D:\Moe.txt');
assign(f2,'D:\NewMoe.txt');
Reset(f1);
ReWrite(f2);
while not eof(f1) do
begin
readln(f1,s);
write(f2,s);
if(every_second_line mod 2 = 0) then
  writeln(f2,s2)
else writeln(f2,'');
every_second_line:=every_second_line+1;
end;
close(f1);
close(f2);
end.