var s: string; i: integer;begin readln(s); for i := 1 to length(s) do if(s[i] = 'и') or (s[i] = 'И') then write(s[i], ' ');end.
var
s: string;
i: integer;
begin
readln(s);
for i := 1 to length(s) do
if(s[i] = 'и') or (s[i] = 'И') then write(s[i], ' ');
end.