AULA 10 DE SETEMBRO

// PROGRAMA PARA CALCULAR IDADE ATUAL DA PESSOA E QUANTOS ANOS ELA TERÁ EM 2014

Program AULA_10_SETEMBRO ;
var nascimento, anoatual, idadefutura, idadeatual: integer;

 Begin

    textbackground (red);
    textcolor (yellow);
     clrscr;

    writeln ('Digite o ano do seu nascimento: ');
    readln (nascimento);
    writeln ('Digite em que ano você está: ');
    readln (anoatual);

    idadeatual:= (anoatual - nascimento);
    idadefutura:= (2050 - nascimento);

    writeln ('Atualmente, você tem ', idadeatual, ' anos. No ano de 2050, você terá ', idadefutura,' anos.' );
    readln;

 End.