estou com duvida em como resolver esse algoritmo

VAR
distcid,medferi,resposta,acesso,contdist,nasfaltado,visinas,asfaltado:REAL
nomehotel: caractere
INICIO
      REPITA
ESCREVAL ("VOCÊ TEM ALGUM HOTEL PARA CADASTRAR? ")
ESCREVAL ("1. SIM")
ESCREVAL ("2. NÃO")
LEIA(RESPOSTA)
      ESCOLHA (RESPOSTA)
      CASO 1
ESCREVAL("QUAL O NOME DO HOTEL?")
LEIA(nomehotel)
ESCREVAL("QUAL DISTANCIA DO HOTEL ATÉ O CENTRO EM KM?")
LEIA(distcid)
ESCREVAL("QUAL NUMERO MÉDIO DE VISITANTES NO ULTIMO FERIADO?")
LEIA(medferi)
ESCREVAL ("QUAL TIPO DE ACESSO AO HOTEL? (0)-NÃO ASFALTADO / (1)-ASFALTADO")
LEIA(acesso)
            se distcid > 15 então
            contdist <- contdist+1
            fimse
            se acesso = 0 então
            nasfaltado <- nasfaltado+1
            visinas <- (visinas+medferi)
            fimse
       FIMESCOLHA
ATE(RESPOSTA<>1)
Escreval ("O numero de hoteis que distam mais de 15km do centro é:",contdist)
Escreval ("A média de visitantes no ultimo feriado com acesso não asfaltado é",(visinas/nasfaltado))
FIMALGORITMO