Ração para gatos

Você possui 2 gatos e acabou de comprar um pacote de ração (Kg). Você deve dividir as porções da ração levando em consideração o peso de cada gato. Sabendo que para cada 1Kg de gato, deverá ser servido 50g de ração diariamente.
Faça um algoritmo que solicite o peso de cada gato e o peso (kg) do pacote de ração.
O algoritmo deverá calcular as porções diárias e mostrar o quanto (em gramas) existe no pacote de ração após 5 dias:

algoritmo "Gato"
var
   gato1,gato2,racao,gramasDiariasGato1,gramasDiariasGato2,soma: real
inicio
      //Pedindo o peso do gato 1 em quilogramas
      escreval("Informe o peso do gato 1:")
      leia(gato1)
      
      //Pedindo o peso do gato 2 em quilogramas
      escreval("Informe o peso do gato 2:")
      leia(gato2)
      
      //Pedindo o peso do pacote de ração em quilogramas
      escreval("Informe o peso do pacote de ração:")
      leia(racao)
      
      //Cada um quilo de gato equivale a 50 gramas de racao. Exemplo: 2kg de gato X 50g de ração = 100g de ração.
      gramasDiariasGato1<- gato1*50
      gramasDiariasGato2<- gato2*50
      
      //Soma é a somatoria de todo o consumo de ração de dos dois gatos durante cinco dias.
      soma<- 5*(gramasDiariasGato1+gramasDiariasGato2)
      //Mostrando o que sobrou no pacote depois de calculado o consumo para cinco dias
      escreval("Ração após cinco dias:",(racao*1000)-soma," gramas")
      escreval("Consumo diário do gato 1:",gramasDiariasGato1," gramas")
      escreva("Consumo diário do gato 2:",gramasDiariasGato2," gramas")
fimalgoritmo