blob: 95490f26217d5b226d47bccf56e8493e26aa804a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
var
s: ansistring;
function ispalindrome(s: ansistring): boolean;
var
n, i: int32;
begin
n := length(s);
for i := 1 to n do
if s[i] <> s[n - i + 1] then
exit(false);
ispalindrome := true
end;
begin
readln(s);
if ispalindrome(s) then
writeln('YES')
else
writeln('NO')
end.
|