Exercicio Repita...até... usando também o comando escolha..caso

//Uma sorveteria vende 3 tipos de picolés. Sabendo-se que o picolé do tipo 1 é vendido por R$ 0,50,
// o do tipo 2 por R$ 0,60 e o do tipo 3 por R$ 0,25, faça um algoritmo que, para cada tipo de picolé,
//mostre a quantidade vendida e o total arrecadado. Faça pelo menos entre 5 e 10 vendas

Algoritmo "SORVETERIA"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ

Var
   // Seção de Declarações das variáveis
   TIPOPICOLE:INTEIRO
   QTDTIPO1,QTDTIPO2,QTDTIPO3:INTEIRO
   TOTAL,QTDTOTAL:REAL

Inicio
   REPITA
      ESCREVAL("QUAL O TIPO DE PICOLÉ VENDIDO?")
      ESCREVAL("DIGITE 1 PARA TIPO 1")
      ESCREVAL("DIGITE 2 PARA TIPO 2")
      ESCREVAL("DIGITE 3 PARA TIPO 3")
      ESCREVAL("DIGITE 0 PARA SAIR")
      LEIA(TIPOPICOLE)
      ESCOLHA TIPOPICOLE
      CASO 1
         QTDTIPO1:=QTDTIPO1+1
      CASO 2
         QTDTIPO2:=QTDTIPO2+1
      CASO 3
         QTDTIPO3:=QTDTIPO3+1
      FIMESCOLHA
   ATE TIPOPICOLE=0
   TOTAL:=QTDTIPO1*0.50+QTDTIPO2*0.60+QTDTIPO3*0.25
   QTDTOTAL:=QTDTIPO1+QTDTIPO2+QTDTIPO3
   ESCREVAL("A QUANTIDADE VENDIDA FOI:")
   ESCREVAL("QUANTIDADE DO TIPO 1: ",QTDTIPO1)
   ESCREVAL("QUANTIDADE DO TIPO 2: ",QTDTIPO2)
   ESCREVAL("QUANTIDADE DO TIPO 3: ",QTDTIPO3)
   ESCREVAL("A QUANTIDADE TOTAL: ",QTDTOTAL)
   ESCREVAL("O VALOR TOTAL ARRECADADO FOI R$",TOTAL:4:2)

Fimalgoritmo