Questão 1

Program Q1;
 var n1, n2, media: real;
 Begin
   writeln('Insira a primeira nota da avaliação: ');
   readln(n1);
   writeln('Insira a segunda nota da avaliação: ');
   readln(n2);
   media := (n1+n2)/2;
   writeln('');

   if (media >= 6) then
    begin
   	writeln('PARABENS! Você foi aprovado!');
   	textcolor(yellow);
   	writeln('Média: ', media:2:2);
    end;

   if (media < 6) then
    begin
   	textcolor(10);
   	writeln('Aluno reprovado!');
	textcolor(red);
	writeln('Média: ', media:2:2);
    end;
 End.