program z9_26;
var s:string;
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;
procedure words(var s:string;ch:char;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 pos(ch,slovo)<>0 then begin
writeln(slovo);
inc(k);
end;
delete(s,1,length(slovo));
delspaces(s);
end;
end;
begin
writeln('aaaaeoa oaeno: ');
readln(s);
write('eeoaeoa aoeao aey iienea a neiaao: ');
readln(ch);
words(s,ch,k);
writeln('eiee?anoai neia,niaa??aueo caaaiio? aoeao: ',k);
readln;
end.