Program Palindrom;
uses crt;
var  n,n0,p,kil,ch:integer;
f,g:text;
procedure prog(p:integer; var ch,kil:integer );
begin



end;
procedure Vvod;
 begin
assign(f,'palidrom.dat');
reset(f);
read(f,n); readln(f);
writeln('n=>',n);
n0:=1;
 while n0<=n do begin
n0:=n0+1;
read(f,p);
write(p:2);
prog(p,ch,kil);
end;
end;

procedure vuvid;
begin
assign(g,'palidrom.sol');
rewrite(g);
writeln(g,kil);
write(g,ch);
end;
Begin clrscr;
vvod;
prog(p,ch,kil);
vuvid;
close(f);
close(g);
end.