Строка содержит одно слово-шалаш. Проверить будет ли оно читаться одинаково справа налево и слева направо.

Var s : string;

b : boolean;

i, len : integer; begin readln (s); len : = length (s); b : = true; for i : = 1 to len div 2 do if s[i] s[len - i + 1] then begin b : = false; break; end; writeln (b); end.