7. 找“six”

program ex_7;
var
     st : string;
     i, len : integer;
     found : boolean;
begin
     readln(st);
     len := length(st);
     for i := 1 to len-3 do
         if (st[i] = 's') and (st[i+1] = 'i') and (st[i+2] = 'x') then
         begin
              write(i, ' ');
              found := true;
         end;
     if not found then
        writeln('No find!');
     readln;
end.