Задача: С клавиатуры вводится строка, определить является ли она палиндромом.…

Var st: string [80]; i, dl, f: integer; begin readln (st); f: =1; i: =1; dl: =length (st); while (i <= dl) and (f=1) do begin if (st[i]=st[0-i+1+dl]) then f: =1 else f: =0; inc (i); end; if (f=0) then writeln ('Да') else writeln ('Нет'); end. Немного изменил вариант из учебника под условие=)