program szyfruj;
var inp, outp : text;
   zn   : char;

begin
   assign(inp,'./list.txt');
   reset(inp);
   assign(outp,'./list.kod');
   rewrite(outp);
   while not eof(inp) do
   begin
     read(inp,zn);
     write(outp,chr(ord(zn)+7))   
   end;
   close(inp);
   close(outp)
end.