program Metro;
Var     fd,fs:text;

begin
assign(fd,'palindro.dat');
reset(fd);
assign(fs,'palindro.sol');
rewrite(fs);






close(fd);
close(fs);
end.