uses crt;
const text:string='ў®в в*ЄЁҐ ЇҐаҐ¬Ґ*л г **б ў ¤Ґ«ҐҐе';
var z,s:char;i,k,p,j:byte;t:string;
begin
clrscr;
s:='Ґ';
text:=text+' ';
for i:=1 to length(text) do
if text[i]=' ' then begin p:=i; break end;

for i:=1 to length(text) do
if text[i]=' ' then begin  t:=copy(text,p,i-p); p:=i;
 for j:=1 to length(t) do
 if t[j]='Ґ'then k:=k+1;
 if k=3 then writeln(t);
 k:=0;
 end;
end.