Verified answer

PS. Слова в предложении отделяются друг от друга одним пробелом.

procedure per(s:string);

var s1,s2:string;

i:integer;

begin

s:=s+' ';

s1:='';

s2:='';

for i:=1 to length(s) do

if s[i]<>' ' then

 begin

 s1:=s1+s[i];

 s2:=s[i]+s2;

 end

else begin

 if s1=s2 then writeln(s1);

 s1:='';

 s2:='';

 end;

end;

begin

per('это шалаш или нет');

end.

Результат:

шалаш

или