Algoritmos

1) A Federação Gaúcha de Futebol contratou você para escrever um programa para fazer uma estatística do resultado de vários GRENAIS. Escreva um algoritmo para ler o número de gols marcados pelo Inter, o número de gols marcados pelo GRÊMIO em um GRENAL, imprimindo o nome do time vitorioso ou a palavra EMPATE. Logo após escrever a mensagem "Novo GRENAL 1.Sim 2.Não?" e solicitar uma resposta. Se a resposta for 1, o algoritmo deve ser executado novamente solicitando o número de gols marcados pelos times em uma nova partida, caso contrário deve ser encerrado imprimindo:
- Quantos GRENAIS fizeram parte da estatística.
- O número de vitórias do Inter.
- O número de vitórias do Grêmio.
- O número de Empates.
- Uma mensagem indicando qual o time que venceu o maior número de GRENAIS (ou NÃO HOUVE VENCEDOR).
Observação: Para implementar um contador em Pascal (incrementar): variável := variável + 1

program alg01;

var gols_g, gols_i, nov : integer; gcont, icont, econt :integer;

begin gols_g := 0; {Gols Grêmio} gols_i := 0; {Gols Inter} gcont := 0; {Vitórias do Grêmio} icont := 0; {Vitórias do Inter} econt := 0; {Empates}

repeat

writeln ('Gols do Gremio: '); read (gols_g); writeln ('Gols do Inter: '); read (gols_i);

if gols_g > gols_i then writeln ('GREMIO!!!'); if gols_g>gols_i then gcont:=gcont+1 else if gols_i > gols_g then writeln ('INTER!!!'); if gols_i>gols_g then icont:=icont+1 else if gols_g=gols_i then writeln ('Empate...'); if gols_g=gols_i then econt:=econt+1 ; writeln; writeln ('Novo GRENAL? 1- Sim 2- Não'); read (nov); until nov=2;