Gabriel Aquino

Olá, preciso de ajuda.

 

Fiz um algoritmo onde de multipla escolha e no final uma somatória. 

 

algoritmo "feira"

var

preco1,preco2,preco3 : real
fruta1,fruta2,fruta3 : literal
resultado: inteiro
resposta: literal
quantidade: real

inicio

preco1 <- 5
preco2 <- 2
preco3 <- 4



escreval ("Bem vindo, gostaria de comprar frutas? S/N")
leia (resposta)
se resposta = "Sim" e "sim" e "S" e "s" entao

    Escreval ("Qual das frutas? Fruta 1, Fruta 2, Fruta 3?")
senao
    Escreval ("Obrigado, até a proxima!")
fimse
    leia (resposta)
caso ("Fruta 1")
    escreval ("Quantos quilos? (Maximo 3kg)")
    leia (resposta)

caso ("1") entao
     escreva ("R$ ")
     escreva (preco1 * 1)
fimescolha

caso ("2") entao
      escreva ("R$ ")
      escreva (preco1 * 2)

caso ("3") entao
       escreva ("R$ ")
       escreva (preco1 * 3)
fimescolha
    

fimalgoritmo

porém quando eu rodo o final fica 

Bem vindo, gostaria de comprar frutas? S/N
S
Qual das frutas? Fruta 1, Fruta 2, Fruta 3?
Fruta 1
Quantos quilos? (Maximo 3kg)
1
R$  5R$  10R$  15
*** Fim da execução.
*** Feche esta janela para retornar ao Visualg.

 

Com as três opções distintas sendo que era pra ser induvidual

 

Quantos quilos? 1 = R$5;

Quantos quilos? 2 = R$10

 

e não sair tudo junto.

 

Por favor, me ajudem.