Alguém pode me ajudar resolver essas questões em Algoritmo Portugol??

algoritmo "Escreva um algoritmo que leia 2 números e imprima qual é o maior entre os dois"
// Função : maior de dois números
// Data : 19/10/2015
// Seção de Declarações
var
n1, n2:  inteiro
  inicio

leia (n1, n2)
     se (n1 > n2)entao
        escreva ("Maior e o n1 = ", n1)
     senao
        escreva ("Maior e o n2 = ", n2)
fimse
fimalgoritmo

algoritmo "SEMANA"
// Função :  escrever o dia da semana
// Data : 19/10/2015
// Seção de Declarações
var
dia, condic: inteiro
inicio
// Seção de Comandos
escreva("digite o dia")
leia(dia)
condic<-dia
 escolha condic
caso 1
escreva("Segunda-Feira")

caso 2
escreva("Terça-Feira")

caso 3
escreva("Quarta-Feira")

caso 4
escreva("Quinta-Feira")

caso 5
escreva("Quinta-Feira")

caso 6
escreva("Sexta-Feira")

caso 7
escreva("Sábado")

caso 8
escreva("Domingo")
fimescolha
se (condic>8)entao
escreva("dia da semana não existe")
fimse
fimalgoritmo

algoritmo "SALÁRIO"
// Função : Calcule e imprima o novo salário
// Data : 19/10/2015
// Seção de Declarações
var
sal, aumento, novoSal: real
inicio
// Seção de Comandos

escreva("Digite o valor do Salário: ")
 leia(sal)
          se(sal>500)entao
             escreva("Digite o valor do aumento em porcentagem")
                leia(aumento)
                   aumento<-sal*(aumento/100)
                     novoSal<-aumento+sal

                      escreval("O valor do aumento é: ", aumento)
                       escreval("O valor do novo salário é: ", novoSal)
           senao
           escreval("Seu salário é de: R$",sal," reais")

fimse
fimalgoritmo