Помогите, пожалуйста, вообще не понимаю эту информатику! Отдаю 30 баллов!

Согласен, небольшие ошибки подправил, из-за спешки решения не учел более короткий алгоритм решения. Спасибо за внимание.

Var a:string[255];k,i,d,c:integer;Beginread (a);k:=1;d:=length(a);If (d mod 2)=1 thenc:=(d div 2)+1 else c:=c div 2; //Центральная цифраFor i:=1 to c do   If a[i]=a[d-i+1] then k:=k*1 else k:=k*0;  //k определяет одинаковые числаIf k=0 then Writeln ('Нет') else Writeln ('Перевертыш');end.

И правда, зачем так длинно? ))))// PascalABC.NET 3.2, сборка 1437 от 03.05.2017// Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString;  if s=s.Inverse then Writeln('Перевертыш')  else Writeln ('Нет')end.