rogram;
uses wincrt;
Var
x,ch:string;
i:integer;
Begin
writeln('donner un chene de carracter');
readln(x);
for i:=1 to length(x) Do
ch:=x[i]+ch;
writeln(ch);
if x = ch then
writeln('nsit esmha el kelma')
Else
writeln('makch rajel');
end.