VisualG Meu codigo esta bom para um iniciante

[Semnet]

Resolvi criar um codigo "Receita De Bolo" , eu começei a usar visualg a 2 semanas e quero saber se eu estou indo bem para um iniciante (OBS: eu tive a ideia do codigo e montei o exercicio na minha cabeça)

algoritmo "ReceitaDeBolo"
var
   Ig, Ac, Ovo, Bat: caractere
   Forno, min,T: Inteiro
inicio
   Escreval("FAZENDO um BOLO")
   Repita
      Escreval("voce tem 1/2 Xicara de Margarina? S/N")
      Leia(Ig)
   Ate Ig = "S"
   Repita
      Escreval("Tem 1 xicara de açucar ? S/N")
      Leia(Ac)
   Ate Ac = "S"
   Repita
      Escreval("Tem 3 Ovos ? S/N")
      Leia(Ovo)
   Ate Ovo = "S"
   Escreval("Colocando o resto dos igreditentes")
   Escreval(".")
   Escreval(".")
   Escreval("---------------")
   Escreval("MODO DE PREPARO")
   Escreval("---------------")
   Escreval("Ligue o forno a 180 Graus")
   leia(Forno)
   Se (Forno = 180)entao
      Escreval("Forno Aquecendo...")
   senao
      Se (Forno < 180) entao
         Escreval("A temperatura esta baixa! o bolo nao vai esquentar ")
         Escreval("Coloque em 180 graus")
         Leia(Forno)
         Escreval("Forno em ", Forno, " Graus")
      senao
         Escreval("Forno alto demais , O bolo pode queimar")
         Escreval("Coloque em 180 graus")
         Leia(Forno)
         Escreval("Forno em ",Forno, " Graus")
      FimSe
   FimSe
   Escreval("Ligue a batedeira: Ligado/Desligado ")
   Leia(Bat)
   Se (Bat = "Ligado")entao
      Escreval("---------------------------------------------------------------")
      Escreval("Em uma batedeira bata a margarina e o açucar ate formar um creme")
      Escreval("claro . Junte os ovos um a um ate formar uma mistura")
      Escreval("esbranquiçada")
      Escreval("---------------------------------------------------------------")
   Senao
      Escreval("Ligue a batedeira: Ligado/Desligado")
      Leia(Bat)
      Escreval("---------------------------------------------------------------")
      Escreval("Em uma batedeira bata a margarina e o açucar ate formar um creme")
      Escreval("claro . Junte os ovos um a um ate formar uma mistura")
      Escreval("esbranquiçada")
      Escreval("---------------------------------------------------------------")
   FimSe
   Escreval("Misture iorgute e o suco de limao e reserve")
   Escreval("Fazendo o resto do modo de preparo")
   Escreval(".")
   Escreval(".")
   Escreval("Leve o bolo ao forno e deixe por 35 minutos")
   Escreval("Tempo do bolo: ")
   leia(T)
   Se (T = 35)entao
      Escreval("35 Minutos depois ...")
      Escreval("         {--|--|--}                         ")
      Escreval("         {********}    Seu Bolo esta pronto ")
      Escreval("       \_{________}_/                       ")
   senao
      Se (T > 35)entao
         Escreval("Bolo queimado, voce perdeu o bolo so fazendo outro agora :(")
      senao
         Escreval("Bolo não esta no ponto, ")
      Fimse
   Fimse
fimalgoritmo

 

[Kolaps]

Sim, alias, belo código em Portugol!