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