uses crt;vara,i:integer;st,tmp:string;beginread(a);st:=inttostr(a);for i:=length(st) downto 1 do tmp:=tmp+st[i];write(tmp);end.
uses crt;
var
a,i:integer;
st,tmp:string;
begin
read(a);
st:=inttostr(a);
for i:=length(st) downto 1 do
tmp:=tmp+st[i];
write(tmp);
end.