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.