2066 e 2084 Problema no programa

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Pzim ;
var
n1,n2,media:real;
 Begin
 write('Digite suas notas');
 read(n1,n2);
 media:=(n1+n2)/2; { aqui falatava um ;}
 if media>=7 then
 begin
 write('safou - média=',media);
 write('Parabéns');
 end
 else
 if (media<7) and (media>=5) then
 begin
 write('quase lá - média=',media);
 write('Atenção');
 end
 else
 begin
 write('mamou - média=',media);
 write('Porrar') ;
 end;
 End.