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

Var i: byte; st: string; flag: boolean; beginreadln (st); //вводим строкуflag: =true; //предполагаем что строка — палиндромfor i: =1 to (length (st) div 2) do //проходим по строке от начала середины//length (st) — вовзращает длинну строки if st[i] <> st[length (st) -i+1] then flag: =false; // сравниваем — если отличаются — строка не палиндромif flag true then writeln ('Строка ', st,' является палиндромом') else writeln ('NO'); end.