var f1,f2: text;
  s1,s2,s: string;
begin
   assign(f2,'file2.txt');
   rewrite(f2);
   assign(f1,'file1.txt');
   reset(f1);
   while not eof(f1) do
   begin
       readln(f1,s);
       s:=s+ ' ёжик <br>';
       writeln(f2,s);    
   end;
   close(f1);
   close(f2);
end.