// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var s:=ReadlnString('Введите слово:').ToLower;
if s=ReverseString(s) then Writeln('Перевертыш')
else Writeln('Не перевертыш')
end.
Тестовое решение:
Введите слово: Шалаш
Перевертыш
Введите слово: револьвер
Не перевертыш