Составить программу в паскале для определения является ли заданное слово палиндромом

Question

Составить программу в паскале для определения является ли заданное слово палиндромом

Comments

помогите

---

очень нужно

Answer 1

Var 
x:string;
i,w:integer;
begin
w:=0;
readln(x);
for i:=1 to length(x) div 2 do
if x[i]<>x[length(x)-i+1] then
w:=w+1;
if w=0 then writeln('Палиндром') else
writeln('Не палиндром');
end.

Comments

а что ввести?

---

заданное слово