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

отметь как лучшее решение.Мне не хватает 3 наилуч реш. до нового статуса

program gt;var a,b:string;l,i:integer;beginreadln(a);l:=length(a);b:='';for i:=l downto 1 dob:=b+a[i];if(a=b)then writeln('YES')else writeln('NO');end.