Qual o erro deste codigo?

[gmps 0]

uses  SysUtils;varp1,p2,p3,media:real;begin  Writeln('Digite a nota 1: ');  readln(p1);  Writeln('DIgite a nota 2: ');  readln(p2);  writeln('Digite a nota 3: ');  readln(p3);  media:=(p1*2 + p2*3 + p3*5)/3;  if media >5 or media <7 then  Writeln('O Aluno esta reprovado.');  readln;  { TODO -oUser -cConsole Main : Insert code here }end.

eu mandei compilar, e o erro aparece no media >5 or media <7 then.pq?

[Mach 5 0]

Este Comando:

if media >5 or media <7 then

Coloque entre parenteses:

if (media >5) or (media <7) then

[bacalhau 0]

Só pra complementar: o erro (sintático) está nos parentesis. Resta ainda um erro semântico: qualquer que seja a média ela será sempre OU maior que 5, OU menor que 7. Conclusão: tudo fica reprovado!O correcto é (>5) AND (<7)abraço do bacalhau