Exercício 03 Estrutura de Seleção - Pascal

3) Faça um algoritmo que leia o ano de nascimento de uma pessoa, calcule e mostre sua idade e, também, verifique e mostre se ela já tem idade para votar (16 anos ou mais) e para conseguir a Carteira de Habilitação (18 anos ou mais).

Program Cond03 ;
var
  ano,idade, nas: integer;
  vote,hab: boolean;
 Begin
  Write('Informe Ano Atual: ');
  readln(ano);
  Write('Informe Nascimento: ');
  readln(nas);
    idade:= ano - nas;
   if (idade >= 16) then
      vote:= true;
   if (idade >= 18) then
       hab:= true;
   Writeln('Idade: ',idade);
   Writeln('Beneficios que Podera Ter');
   Writeln('Votar: ',vote);
   Writeln('Habilitacao: ',hab);       
 End.

Categories: Pascal , Programação