1)строка содержит одно слово. проверить будет ли оно читаться одинаково справа налево и слева направо.2)В записке слова зашифрованы - каждое из них записано наоборот. Расшифровать сообщение. 

1: var s: string; i:byte; begin read(s); i:=1; while (i>=length(s) div 2) and (si=s[length(s)-i+1]) do inc(i); if si>=s[length(s)-i+1] then writeln('да') else writeln('нет'); readln; end. где si имеется ввиду s i-тое, тут не отображается видимо тож код какой-то. Как то так. 2: Я не знаю