Aqui fica outro programa feito por mim mas desta vez para dizer o mês do ano correspondente ao numero que digitar-mos (1 a 12).
program Meses;
uses crt;
var
valor:Integer;
Begin
clrscr;
writeln(\\'Este programa mostra o mes correspondente um numero\\');
writeln(\\'Introduza um numero de 1 a 12\\');
readln(valor);
case valor of
1:write(\\'O Numero corresponde ââ,¬Å¡ Janeiro\\');
2:write(\\'O Numero corresponde ââ,¬Å¡ Fevereiro\\');
3:write(\\'O Numero corresponde ââ,¬Å¡ Marââ,¬Â¡o\\');
4:write(\\'O Numero correspondente ââ,¬Å¡ Abril\\');
5:write(\\'O Numero correspondente ââ,¬Å¡ Maio\\');
6:write(\\'O Numero correspondente ââ,¬Å¡ Junho\\');
7:write(\\'O Numero correspondente ââ,¬Å¡ Julho\\');
8:write(\\'O Numero correspondente ââ,¬Å¡ Agosto\\');
9:write(\\'O Numero correspondente ââ,¬Å¡ Setembro\\');
10:write(\\'O Numero correspondente ââ,¬Å¡ Outubro\\');
11:write(\\'O Numero correspondente ââ,¬Å¡ Novembro\\');
12:write(\\'O Numero correspondente ââ,¬Å¡ Dezembro\\');
else write(\\'A operação nao ââ,¬Å¡ valida, tecle enter para sair!\\');
end;
readln;
end.