Desenvolver um algoritmo que leia um número não determinado de valores e calcule e escreva a média aritmética dos valores lidos

Algoritmo "3. Desenvolver um algoritmo que leia um número não determinado de valores e calcule e escreva a média aritmética dos valores lidos, a quantidade de valores positivos, a quantidade de valores negativos e o percentual de valores negativos e positivos. "

// Disciplina  : [ Lógica de Programação]

//

// Descrição  : Aqui você descreve o que o programa faz! (função)

// Autor(a)  : José Gleilton de Sousa

// Data atual : 15/06/2022

Var

  // Seção de Declarações das variáveis

  a,b,c,quant_pos,quant_neg:inteiro

  med,porc_neg,porc_pos:real

  d:caracter

Inicio

  // Seção de Comandos, procedimento, funções, operadores, etc...

  repita

   escreval("Entre com um valor: ")

   leia(a)

   c<-c+a

   b<-b+1

   se a>0 entao

     quant_pos<-quant_pos+1

   fimse

   se a<0 entao

     quant_neg<-quant_neg+1

   fimse

   repita

     escreval("Deseja continuar?")

     escreval("_________________")

     escreval

     escreval("    Sim    ")

     escreval

     escreval("    Não    ")

     escreval

     escreval("_________________")

     leia(d)

     limpatela

   ate (d="sim") ou (d="nao")

  ate d="nao"

  med<-c/b

  porc_pos<-(quant_pos/b)*100

  porc_neg<-(quant_neg/b)*100

  escreval("A média dos valores é: ",med)

  escreval

  escreval("A quantidade de valores positivos é:",quant_pos)

  escreval("Os valores positivos equivalem a ",porc_pos,"%.")

  escreval

  escreval("A quantidade de valores negativos é:",quant_neg)

  escreval("Os valores negativos equivalem a ",porc_neg,"%.")