Resposta:

programa quantidadePositivos;

var

  valor, positivos: inteiro;

inicio

  positivos <- 0; // Inicializa o contador de positivos

  para i de 1 ate 6 faca

     escreva("Digite o ", i, "º valor: ");

     leia(valor);

     se valor > 0 entao

        positivos <- positivos + 1;

     senao se valor = 0 entao

        escreva("Não são permitidos valores nulos. Digite outro valor.");

        i <- i - 1; // Volta para a iteração anterior do loop

     senao

        // Valor negativo, não conta como positivo

     fimse

  fimpara

  escreva("Foram digitados ", positivos, " valores positivos.");

fim.