P02E07

Program P02E07;

Const
    FINISHCHAR = '*';
    SPACECHAR = ' ';

Var
    charIn : char;
    palabraCount : integer;
    palabraLetraCount : integer;
    startChar : char;
    endChar : char;
    palabraOCount : integer;

Begin
    palabraCount := 0;

    charIn := SPACECHAR;
    while(charIn <> FINISHCHAR) do
    begin
        palabraLetraCount := 0;
        palabraOCount := 0;

        startChar := charIn;

        while ((charIn <> SPACECHAR) and (charIn <> FINISHCHAR) ) do
        begin
            palabraLetraCount := palabraLetraCount + 1;

            if ( charIn = 'o' ) then
            begin
                palabraOCount := palabraOCount + 1;
            end;

            endChar := charIn;
            readln(charIn);
        end;

        if (palabraLetraCount >= 6) then
        begin
            if (( (startChar = 'S') or (startChar = 's')  ) and (endChar = 's') and (palabraOCount = 2))  then
            begin
                palabraCount := palabraCount + 1;
            end;
        end;


        if( charIn <> FINISHCHAR) then readln(charIn);
    end;

    writeln('La cantidad de Palabras de al menos 6 letras que empiezan y terminan con s = ', palabraCount);
End.