Profº Piva - Algoritmos - Exercícios Capítulo 2.17) Faça um algoritmo que leia o dia do mês ( valor de 1 a 31), e o dia da semana correspondente (1 a 7). O algoritmo deve calcular e escrever o dia da semana (1 a 7) correspondente ao primeiro dia do mês.

algoritmo "Cálculo do primeiro dia de mês."
var
  semana:literal
  dm,ds:inteiro
inicio
  escreval("Saiba qual é o primeiro dia do mês.")
  escreva(" Digite o dia do mês de 1 a 31    -> ")
  leia(dm)
  escreva(" Digite o dia da semana de 1 a 7  -> ")
  leia(ds)
  se (dm>31) e (dm<1) e (ds>7) e (ds<1) entao
  escreva("Número inválido")
  fimalgoritmo
  senao
  se dm>1 entao
  dm <- dm-1
  ds <- (ds-2)
  se (ds=0) entao
  ds <- (7)
         fimse
       fimse
     fimse
    se ds=1 entao
    semana <- "é um Domingo."
    senao
      se ds=2 entao
      semana <- "é uma Segunda-feira."
      senao
        se ds=3 entao
        semana <- "é uma Terça-feira."
        senao
          se ds=4 entao
          semana <- "é uma Quarta-feira."
          senao
            se ds=5 entao
            semana <- "é uma Quinta-feira."
            senao
              se ds=6 entao
              semana <- "é uma Sexta-feira."
              senao
                se ds=7 entao
                semana <- "é Sabado."
                fimse
              fimse
            fimse
          fimse
        fimse
      fimse
    fimse
   escreval(" O dia da semana ",semana)
  Fimalgoritmo