Exemplo Soma de notas

Program Inclusao_prof;
var
media, n1,n2,n3:real;
nome: string;
opc:integer;
  
Begin
textbackground(green) ;
clrscr;
gotoxy(10,10);  
textcolor( blue );
writeln('Nome do Aluno');

readln(nome);

writeln ('Media 1');

readln(n1);

writeln('Media 2');

readln(n2);
writeln('Media 3');

readln(n3);

media:=(n1+n2+n3) /3;
writeln('media=',media,3:3);
 IF media >= 7 then 
 Begin
 writeln('  ');
 write('Parabéns ',nome ,' você foi aprovado!');
 end
 ELSE
 Begin
 writeln('  ');
 write(nome ,' Estudar mais, fara a recuperação! ');
 writeln('  ');

 end;
 end.