Program r9_28;
uses crt;
var s:string;
var a,b:array[1..n,1..n] of integer;
      ch:char; k:byte;
procedure DelSpaces(var s:string);
begin
while (s[1]=' ') and (length(s)>0) do
s:=copy(s, 2, length(s)-1);
end;
function Palindrom(st:string):Boolean;
begin
if length(st)<=1 then Palindrom:=True
else Palindrom:=(st[1]=st[length(st)]) and
     Palindrom(copy(st, 2, length(st)-2));
end;
procedure Poly(s:string ;var k:byte);
var slovo:string;
begin
s:=s+' ';
DelSpaces(s);
k:=0;
while s<>'' do begin
slovo:=copy(s, 1, Pos(' ',s)-1);
if Palindrom(slovo) then
begin writeln(slovo); Inc(k);end;
delete(s, 1, length(slovo));
DelSpaces(s);
end;
end;
begin
writeln('Введите текст : ');
readln(s);
Poly(s,k);
writeln('Количеcтво слов-палиндромов,:', k);
END.