Program perevert;
 Uses crt;
 Var Slovo      : String;
     Dlina, i   : Integer;
     Flag       : Boolean;
Begin
 ClrScr;
 Write ('Ââåäèòå ñëîâî: ');
 Readln (Slovo);
 Dlina:= Length(Slovo);
 i:= 1;
 Flag:= TRUE;
 While (i <= Dlina/2) and Flag do
 begin
  Flag := (Slovo[i] = Slovo[Dlina-i+1]);
  i:=i+1;
 end;

 Writeln;
 Write ('‘«®¢® - ',Slovo);
 if flag then Writeln (' - Ïåðåâåðòûø')
        else Writeln ('- íå ïåðåâåðòûø');
        readln;
END.