Preciso de ajuda com este exercício, pois não consigo terminar e ja tentei de varias vezes e só dá erro

Com o objetivo de reduzir custos com energia elétrica, uma empresa adquiriu 4 geradores elétricos movidos à diesel. Eles estão instalados em um mesmo local, mas cada gerador é responsável por alimentar um setor diferente da empresa. Existe apenas um tanque de combustível, com capacidade para 1000 litros, e este é compartilhado entre os 4 geradores.

Como os setores possuem demandas diferentes, os geradores possuem tamanhos e cargas diferentes, e consequentemente possuem consumo de combustível diferente. Um programa de computador foi criado para calcular o consumo de combustível, baseado no volume inicial do tanque e quais geradores estão ligados e otempo que ficarão em operação.

Ao executar o programa, o usuário deve informar:

 Volume atual do tanque (o limite é 1000 litros, não aceite valores maiores, nem valores negativos).

 Com o tanque baixo (menos de 20 litros) ou vazio (zero), o sistema não inicia, apenas solicita o abastecimento do tanque.

Quando possui combustível suficiente, o sistema pergunta se cada um dos geradores será ligado, e quando a resposta for sim, deve perguntar por quanto tempo.

 Ex.: O gerador 1 será ligado? (s/n) s

 Por quantas horas? 3

Após receber as informações sobre os quatro geradores, o sistema deve calcular se haverá combustível suficiente para manter os geradores ligados pelo tempo necessário. Caso não seja suficiente, deve informar quanto combustível deve ser adicionado ao tanque para suportar a operação. Mostre na tela os valores calculados. Abaixo está a lista de consumo de cada gerador.

 G1 - 25 litros por hora

 G2 - 30 litros por hora

 G3 - 35 litros por hora

 G4 - 40 litros por hora

Fiz assim:

Var

g1, g2, g3, g4, temp, tg, vol: real

respg1, respg2, respg3, respg4, s, n : caracter

Inicio

Escreval ("Digite o volume atual do tanque em Litros: ")

Leia (vol)

temp <- (tg * 3600)

g1 <- 25 / 3600

g2 <- 30 / 3600

g3 <- 35 / 3600

g4 <- 40 / 3600

Se (vol <= 1000)e(vol >= 20) entao

Escreval ("O gerador 1 será lidado? (S/N)")

Leia (respg1)

Se (respg1 = "s") entao

Escreval ("Por quanto tempo? ")

Leia (tg)

Senao

Se (respg1 = "n") entao

Escreval ("Passe!")

Entao

Escreval ("O gerador 2 será lidado? (S/N)")

Leia (respg2)

Se (respg2 = "s") entao

Escreval ("Por quanto tempo? ")

Leia (tg)

Senao

Se (respg2 = "n") entao

Escreval ("Passe!")

Entao

Escreval ("O gerador 3 será lidado? (S/N)")

Leia (respg3)

Se (respg3 = "s") entao

Escreval ("Por quanto tempo? ")

Leia (tg)

Senao

Se (respg3 = "n") entao

Escreval ("Passe!")

Entao

Escreval ("O gerador 4 será lidado? (S/N)")

Leia (respg4)

Se (respg4 = "s") entao

Escreval ("Por quanto tempo? ")

Leia (tg)

Senao

Se (respg4 = "n") entao

Escreval ("Passe!")

Fimse

Senao

se (vol < 20 )e(vol >= 0) entao

Escreval ("O sistema não inicia! Reabasteça! ")

Fimse

FimAlgoritmo

Se alguem puder ajudar, agradeço!!!