program bai_giai;
uses crt;
var f:text;
s,x:string[50];
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
Assign(f,'kq.txt'); rewrite(f);
x:='';
for i:=length(s) downto 1 do x:=x+s[i];
write(x);
while pos(#32,s)<>0 do delete(s,pos(#32,s),1);
write(f,s);
close(f); readln;
end.