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: Я не знаю