Определить сколько слов в строке является палиндромом (читаются одинаково как слева направо, так и справа налево). В основной программе написать подпрограмму, определяющую является ли слово палиндромом.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False); begin   var s:=ReadlnString('>');   Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count) end. Тестовое решение > мадам ваш заказ уже несут - слышу топот официанта Палиндромов: 3