{* Перевертыш *}

Unit SAMPLE03;
Interface
Implementation
Begin
 writeln('

Определения, является ли слово "перевертышем"

');
End.

Program pas;

Uses sample03.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s1 : String;
  s2 : String;
  i  : integer;
Begin
  readln(s1);
  s2 := '';
  For i := length(s1) Downto 1 Do
  Begin
    s2 := s2 + s1[i];
  End;
  If s1 = s2 Then
    writeln(s1, ' - перевертыш')
  Else writeln(s1, ' - не перевертыш');
End.