var s1,s2:string;i:integer;begin s1 :='РОТОР'; s2 := ''; for i := length(s1) downto 1 do s2 := s2 + s1[i]; if(s1=s2)then writeln('Yes') else writeln('No'); readln;end.