PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Пример
шалаш
Это палиндром