Program Palindrome;
Var ch, inv : String;
i : Integer;
Begin
Writeln ('Saisir une chaîne');
Readln (ch);
inv := '' ;
For i := Length (ch) Downto 1 Do inv := inv + ch[i];
If ch = inv Then Writeln (ch, ' est palindrome')
Else
Writeln (ch, ' n''est pas palindrome');
End.