Написать через программу паскальabc.net 8.4. ввести текстовую строку s, состоящую из прописных букв алфавита. выяснить, является ли эта строка палиндромом, то есть, читается ли она одинаково слева направо и справа налево. пример: строка ‘топот’ является палиндромом, а строка ’топор’ – нет. получить результат для следующих исходных данных: исходные данные a) s=’шалаш’ b) s=’анна’ c) s=’окно’ много трудная

Var  s : string;
i, j, n : integer; 
f : boolean;
begin 
readln(s); 
n := length(s); 
i := 1; j := n; 
f := false;   
while (i <= j) do   
begin     
if(s[i] = s[j])       
then f := true       
else f := false;     
i := i + 1;     
j := j - 1;     
if not f       
then break;   
end;   
if f   
then write('Палиндром')   
else write('Не палиндром');
end.