Сделайте программку на языке Паскаль, которая будет определять: является ли данная

var ac: array of char; s: string; len: integer; i: integer; fl: boolean; begin write(Введите строку =); readln(s); SetLength( length(s) ); for i:= 1 to length(s) do ac[i]:= s[i]; f:= true; len:= length(ac); for i := 1 to ( len div 2 ) do begin if ac[i] lt;gt; ac[len -i +1] then begin f:= false; break; end; end; if f then writeln(палиндромом) else writeln(рядовая строчка); end. Палиндромом это строчка, которая читается одинаково с обоих сторон. Вначале вводится строка "s", и проще было бы сходу проверить строчку. Но т.к. в условии сказано, что тип обязан быть "char", то строка посимвольно копируется в массив "ас[]". Размерность массива "ас" устанавливается процедурой "SetLength", равной количеству введенных с клавиатуры символов. Логическая переменная "f" употребляется как флаг, если "f" равное "true", то строка палиндромом, по другому это обычная строчка. В цикле каждый элемент массива "ac" сравнивается с симметричным ему элементом с оборотного конца массива. Если находится хоть один такой элемент, "f" присваивается "false" и цикл прекращается. По окончании цикла, в зависимости от значения переменной "f" выводится результат.