Resposta :
program exercicio03; {Selecao com if}
uses crt;
var nota1, nota2, media : real;
begin
nota1 := 0;
nota2 := 0;
media := 0;
clrscr;
writeln;
write ('Digite a nota da primeira avaliacao: ');
readln (nota1);
write ('Digite a nota da segunda avaliacao: ');
readln (nota2);
media := (nota1 + nota2) / 2;
if media >= 6.0 then
writeln ('PARABENS! Voce foi aprovado')
;
writeln;
end.
O código é basicamente esse, copia e cola no programa que tu usa, espero ter ajudado :)