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.