Составьте программу, вычисляющую, является ли данное слово "перевертышем"(так называются...

Question

Составьте программу, вычисляющую, является ли данное слово "перевертышем"(так называются слова,читающиеся одинаково слева направо и справа налево,например:топот,шалаш) паскаль

Answer 1

Program u;
    var s,d:string;
begin;
    read(s); s:=lowercase(s);
    if reversestring(s)=s then write('Перевёртыш') else write('Не перевёртыш');
end.