LISTA2_EX5 2014/02

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//2014/02

Program EX5_LISTA2 ;
var dn, mn, an, da, ma, aa, diasn, diasa, idadedias, anos, resto, meses, dias: integer;

 Begin
    writeln ('Entre com o dia de seu nascimento: ');
    readln (dn);
    writeln ('Entre com o mês de seu nascimento: ');
    readln (mn);
    writeln ('Entre com o ano de seu nascimento: ');
    readln (an);
    writeln ('Entre com o dia atual: ');
    readln (da);
    writeln ('Entre com o mês atual: ');
    readln (ma);
    writeln ('Entre com o ano atual: ');
    readln (aa);

        diasn := (dn + mn*30 + an*365);
          diasa := (da + ma*30 + aa*365);

          idadedias := diasa - diasn;

          anos := idadedias div 365;
          resto := idadedias mod 365;

        meses := resto div 30;
          resto := resto mod 30;

          dias := resto;

    writeln (dias, ' dia(s).');
    writeln (meses, ' mese(s).');
    writeln (anos, ' ano(s).');


        if (anos > 16) and (anos < 18) then
            begin
                writeln ('Você tem idade para votar, porém ainda não pode tirar carteira de habilitação');
            end;
         if anos < 16 then
            begin
                writeln ('Você não pode votar e nem tirar carteira de habilitação.');
            end
        else
            writeln ('Você pode votar e tirar carteira de habilitação.');

 End.