var n, i : integer; str : string; isPlalindrome : boolean; begin readln(str); n := Length(str); isPlalindrome := true; for i := 1 to (n div 2) do begin if (str[i] <> str[n - i + 1]) then isPlalindrome := false; end; if (isPlalindrome) then writeln('Yes') else writeln('No'); end.
输入:abceecba
输出:1