В ПАСКАЛЕ!!!
Определте является ли слово "перевертышем" (читается слева направо одинаково справа налево)

Var s,s1,l:string;i:integer;
begin
writeln (Введите слово);
readln (s);
s:=lowercase (s);
for i:=length(s) downto 1 do
begin
l:=s[i];
insert (l,s1,length(s)-i+1);
end;
if (s1=s) then writeln (Это "перевёртыш") else writeln (Это не "перевёртыш");
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.