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

Задание б?

И правда, зачем так длинно? ))))

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadlnString;
  if s=s.Inverse then Writeln('Перевертыш')
  else Writeln ('Нет')
end.

Var a:string[255];
k,i,d,c:integer;
Begin
read (a);
k:=1;
d:=length(a);
If (d mod 2)=1 then
c:=(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.