C рекурсиями у меня плохо (надеюсь, что пока что


function is_palindrom(s: string): boolean;?
begin
is_palindrom := true;
if length(s) <= 1 then exit
else begin
if s[1] = s[length(s)] then
is_palindrom := is_palindrom(copy(s, 2, length(s) - 2))
else is_palindrom := false;
end;
end;
begin
writeln(is_palindrom('abcdeedcba'));
end.