Exercício da sorveteria usando o enquanto

//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.. usando enquanto"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ

Var
   tipopicole,qtdtotal,qtdtipo1,qtdtipo2,qtdtipo3:inteiro
   total:real

Inicio
   tipopicole:=1
   enquanto ((tipopicole>=1) e (tipopicole<=3)) faca
      escreval("Escolha o tipo de picole::..1..2..ou..3")
      escreval("Para sair, digite outro código..")
      leia(tipopicole)
      se tipopicole=1 entao
         qtdtipo1:=qtdtipo1+1
      fimse
      se tipopicole=2 entao
         qtdtipo2:=qtdtipo2+1
      fimse
      se tipopicole=3 entao
         qtdtipo3:=qtdtipo3+1
      fimse
   fimenquanto
   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