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.
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.