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.
UHJvZ3JhbSBQYWxpbmRyb21lOwpWYXIgY2gsIGludiA6IFN0cmluZzsKaSA6IEludGVnZXI7CkJlZ2luCldyaXRlbG4gKCdTYWlzaXIgdW5lIGNoYcOubmUnKTsKUmVhZGxuIChjaCk7CmludiA6PSAnJyA7CkZvciBpIDo9IExlbmd0aCAoY2gpIERvd250byAxIERvIGludiA6PSBpbnYgKyBjaFtpXTsKSWYgY2ggPSBpbnYgVGhlbiBXcml0ZWxuIChjaCwgJyBlc3QgcGFsaW5kcm9tZScpCkVsc2UKV3JpdGVsbiAoY2gsICcgbicnZXN0IHBhcyBwYWxpbmRyb21lJyk7CkVuZC4=