Submission #3738127

---

Source Code Expand

{AT2201}
var
s1,s2:ansistring;
i:longint;
t:char;
begin
readln(s1);
s2:=s1;
for i:=1 to length(s2) div 2 do
begin
t:=s2[i];
s2[i]:=s2[length(s2)-i+1];
s2[length(s2)-i+1]:=t;
end;
for i:=1 to length(s2) do
 if (s2[i]='b') and (s1[i]<>'d') or (s2[i]='d') and (s1[i]<>'b') or (s2[i]='p') and (s1[i]<>'q') or (s2[i]='q') and (s1[i]<>'p') then
 begin
 writeln('No');
 halt;
 end;
writeln('Yes');
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result