Visual Basic Ajudar a fazer um LOOP ??????

[Vktcs18]

Fala galera,

 

Preciso fazer com que esse programa de um loop mas não estou conseguindo aplicar o "enquanto" podem me ajudar ?? 

A ideia é sem ele digitar S repete a operação, se não, finaliza. 

Segue.................

Algoritmo "Salario_final"

   Var

   Seção de Declarações das variáveis
   vsemana1,vsemana2,vsemana3,vsemana4,sfinal,rsemana,sfixo,comissao:real
   colaborador:caracter
   S,N:logico
   Inicio
   para S de 1 ate 10 passo 1 faca
   escreva("Informe o nome do colaborador:")
   leia(colaborador)
   escreval("Informe o salário fixo do colaborador ",colaborador)
   leia(sfixo)
   escreval("Vendas da 1ª semana do colaborador ",colaborador)
   leia(vsemana1)
   escreval("Vendas da 2ª semana do colaborador ",colaborador)
   leia(vsemana2)
   escreval("Vendas da 3ª semana do colaborador ",colaborador)
   leia(vsemana3)
   escreval("Vendas da 4ª semana do colaborador ",colaborador)
   leia(vsemana4)
   rsemana<-vsemana1+vsemana2+vsemana3+vsemana4
   escreva("Nome do colaborador:",colaborador)
   escreval
   escreval("O total de vendas do mês é de:",rsemana)
   comissao<-rsemana*10/100
   sfinal<-sfixo+comissao
   escreval("O Salário do colaborador para esse mês é de:",sfinal)
   leia(sfinal)
   escreva("Deseja repetir a operação? Digite S para Sim ou N para Não ")
   leia(S)

   ???????

 

 

 

Quem souber me ajudar e explicar eu agradeço!

[devair1010]

@Vktcs18    você precisa saber os comados do VisualG 3.0 , 

http://www.inf.ufsc.br/~bosco.sobral/ensino/ine5201/Visualg2_manual.pdf

o enquanto vai bem com o fimenquanto , assim 

Algoritmo "Salario_final"
  Var
    vsemana1,vsemana2 : real
    vsemana3,vsemana4 : real
    sfinal,rsemana    : real
    sfixo,comissao    : real
    colaborador,op    : caracter
    S,N               : logico
Inicio
  s <- verdadeiro
  enquanto s = verdadeiro faca
    escreva("Deseja repetir a operação? Digite S para Sim ou N para Não ")
    leia( op )
    se op <> "s" entao
      s <- falso
    fimse
  fimenquanto
fimalgoritmo

 

[Vktcs18]

@devair1010 Entendi, vou dar um lida aqui, obrigado, ajudou bastante.