Conversor moedas

Inicio

Real: resul,resul1,resul2,valor,mbase,dif1,dif,2,dif3;
Inteiro: opcao1,opcao2,opcao3,ocao4,login,senha;
Caractere: verdade,menu;

Inteiro: j[31];
Inteiro: i[6];

Real: soma, cotação[31][5], media, maior = 0, menor = 9999;
Soma = 0;

Faça Inicio: Escreva(“Login!”); Escreva(“------\n\n”); Escreva(“[1] Administrador\n”); Escreva(“[2]Conversor”); Escreva(“Opção:”); Leia(Login);

Se (login==1) Inicio; Escreva(“Digite a senha para acessar a área Administrador: ”); Escreva(“Senha: ”); Leia(Senha); Escreva(“Moeda 1 - Real”); Escreva(“Moeda 2 - Dólar Canadense”); Escreva(“Moeda 3 - Euro”); Escreva(“Moeda 4 - Dólar Turismo”); Escreva(“Moeda 5 – Dólar Comercial”); Fimse;

se(senha==1234) Incio; Para j 0 ate30 passo 1 faça Inicio Para i 0 ate 5 passo 1 faça Inicio Escreva(“Digite a Cotação do mês para a moeda : ”,j+1,i+1); Leia(Cotação[j][i]); Soma=soma+cotação[j][i]; Media=soma/31; Fim; Fimpara; Escreva(“Escolha a moeda Base: ”); Escreva(“1 – Real\n 2- Dólar Canadense\n 3- Euro\n\n”); Escreva (“opção: ”); Leia(opção1); Fimpara; Fimse;

Se(opcao1==1) Inicio; Escreva(“Você escolheu converter a moeda Real!”); Mbase=1,0000; Fimse;

Se(opcao1==2) Inicio; Escreva(“Você escolheu converter a moeda Dólar Canadense”); Mbase=1,7420; Fimse;

Se(“opcao1==3”); Inicio; Escreva (“Você escolheu converter a moeda Euro: ”); Mbase=2,3360; Fimse;

Escreva(“Deseja converter para qual moeda?”); Escreva(“1- Real \n 2-Dolar Canadense \n 3- Euro \n 4- Dólar americano \n ”); Escreva(“Opção: ”);