program project25;
 
uses
SysUtils;
 
{ Exemplo de função }
function NomeMes(pNumeroMes : Integer) : string;
begin
case pNumeroMes of
1: Result := 'janeiro';
2: Result := 'fevereiro';
3: Result := 'março';
4: Result := 'abril';
5: Result := 'maio';
6: Result := 'junho';
7: Result := 'julho';
8: Result := 'agosto';
9: Result := 'setembro';
10: Result := 'outubro';
11: Result := 'novembro';
12: Result := 'dezembro';
else
Result := 'inválido';
end;
end;
 
{ Inicio do programa principal }
var
anoNascimento: integer;
mesNascimento: integer;
mesAtual: integer;
anoAtual: integer;
idadeA: integer;
mes: integer;
begin
Write(Utf8ToAnsi('Informe o seu ano de nascimento: '));
ReadLn(anoNascimento);
 
Write(Utf8ToAnsi('Informe o ano atual: '));
ReadLn(anoAtual);
 
{ Validando anos }
if anoAtual < anoNascimento then
begin
WriteLn(Utf8ToAnsi('O ano atual não pode ser inferiror ao ano de nascimento!'));
Readln;
Exit;
end;
 
{ Deixando uma linha em branco }
WriteLn('');
 
WriteLn(Utf8ToAnsi('Agora informe o Mês de nascimento seguindo a regra.'));
WriteLn(Utf8ToAnsi('Infome 1 para o mês de janeiro, 2 para fevereiro e assim sucessivamente até o 12. '));
 
WriteLn('');
Write(Utf8ToAnsi('Mês de nascimento: '));
ReadLn(mesNascimento);
 
Write(Utf8ToAnsi('Informe o mês atual: '));
ReadLn(mesAtual);
 
{ Validando mês de nascimento }
if ((mesNascimento > 12) or (mesNascimento < 1)) then
begin
WriteLn(Utf8ToAnsi('Mês de nascimento inválido!'));
Readln;
Exit;
end;
 
{ Validando mês atual }
if ((mesAtual > 12) or (mesAtual < 1)) then
begin
WriteLn(Utf8ToAnsi('Mês de nascimento inválido!'));
Readln;
Exit;
end;
 
{ Relatorio }
WriteLn('');
 
WriteLn(Utf8ToAnsi('Mês de Aniversário: ' + NomeMes(mesNascimento) ));
WriteLn(Utf8ToAnsi('Mês Atual: ' + NomeMes(mesAtual) ));
 
if mesAtual = mesNascimento then
begin
Write(
Utf8ToAnsi(NomeMes(mesAtual) + ' é o mês referente a seu aniversário.'));
end
else
begin
WriteLn(
Utf8ToAnsi(NomeMes(mesAtual) + ' não é o mês do seu aniversário.'));
end;
 
idadeA := anoAtual - anoNascimento;
mes := mesAtual - mesNascimento;
 
if mes < 0 then
begin
{ Atualiza o tempo em anos }
idadeA := idadeA - 1;
 
{ PAra quem ainda não completou 1 ano }
if idadeA < 0 then
begin
idadeA := 0;
end;
 
{ Contando os meses 12 menos a diferença do mes atual e mes de nascimento
Exemplo Mes Atual agosto, Mes aniver novembro
11 - 8 = 4
12 - 4 = 8
8 meses }
 
{ Deixa sempre positivo a quantidade }
mes := abs(mes);
 
{ Calculando com a formula acima }
mes := 12 - mes;
end;
 
WriteLn(Utf8ToAnsi('A sua idade é de: '), idadeA, ' anos e ',
mes, ' meses. ');
 
ReadLn;
end.