Program palabras;
    var
      car:char;
      pal:integer;
    Begin
      pal:=0;
      car:=' ';
      repeat
        while (car=' ') do
        begin
          writeln('ingrese un caracter');
          readln(car);
        end;
        pal:=pal+1;
        white (car<>' ') do
        begin
          writeln('ingrese un caracter');
          readln(car);
        end;
      until(car='z');
      writeln('la cantidad de palabras leidas es: ',pal);
      readln;
    End.