Question

Free pascal. Написать программу детектирования слова-полиндрома

Answer 1

Var st: string; l,i: integer; b:boolean;
begin
 readln(st);
 l:=length(st);
 b:=true;
 for i:=1 to l div 2 do
  if st[i]<>st[l-i+1] then b:=false;
 if b then writeln('Слово - палиндром')
 else writeln('Слово - не палиндром');
end.

Пример:
казак
Слово - палиндром