6 lines
144 B
ObjectPascal
6 lines
144 B
ObjectPascal
function IsPalindrome(s: string) := s = s[::-1];
|
|
|
|
begin
|
|
Println(IsPalindrome('arozaupalanalapuazora'));
|
|
Println(IsPalindrome('abcd'));
|
|
end.
|