TP06_02

program TP06_2;



uses
  crt;

var s,aux:string; i,len,cant:integer;
begin
     s := '             Hoy es Jueves.';
     cant := 0;
     len := Length(s);
     i := 1;
     while (i <= len) do begin
            // recorro los posibles espacios en blanco
         while (s[i] = ' ') and (i <= len) do begin
             i := i + 1;
         end;
         aux := '';
         while (s[i] <> ' ') and (i <= len) do begin
             aux := aux + s[i];
             i := i + 1;
         end;
         if Length(aux) >= 3 then begin
             cant := cant + 1;
         end;
     end;
     writeln('Cantidad de palabras con mas de tres caracteres: ', cant);
     readKey;
end.