Строка является палиндромом, если слева направо и справа налево она читается одинаково, например "кабак", "боб", "asdfggf' dsa". Составьте алгоритм и напишите программу, определяющую, является ли строка палиндромом.

Function Palindrome (const s: string): boolean; var i, len: integer; begin     i:= 0;     len:= length (s);     result:= true;     while (i < len div 2) and result do          begin              inc (i);              result:= s[i] = s[len + 1 - i]          end end;Решение на паскале