Pascal/Turbo Pascal - Problema

program Cal;

uses crt;

var P1, P2, P3, promedio:real;

begin

  write('Ingrese tres parciales');

  read(P1, P2, P3);

  if P1<9.5 THEN

        writeln('1er parcial reprobado');

  if P2<9.5 THEN

        writeln('2do parcial reprobado');

  if P3<9.5 THEN

        writeln('3er parcial reprobado')

     else

       if P1>=9.5 THEN

             writeln('1er parcial aprobado');

       if P2>=9.5 THEN

             writeln('2do parcial aprobado');

       if P3>=9.5 THEN

             writeln('3er parcial aprobado');

       promedio=(P1+P2+P3/3)

end.

Cal.pas(23,1) Error: Illegal expression

Cal.pas(21,8) Warning: Variable "promedio" does not seem to be initialized

uses crt;

var P1, P2, P3, promedio:real;

begin

	clrscr;

	promedio:=0;

	writeln('Ingrese tres parciales (uno por linea)');

	readln(P1, P2, P3);

	if P1 < 9.5 THEN

		writeln('1er parcial reprobado')

	else

		writeln('1er parcial aprobado');

	if P2 < 9.5 THEN

		writeln('2do parcial reprobado')

	else

		writeln('2do parcial aprobado');

	if P3 < 9.5 THEN

		writeln('3er parcial reprobado')

	else

		writeln('3er parcial aprobado');

	promedio:=(P1+P2+P3)/3;

	writeln('El promedio de las notas es ',promedio:2:1);

end.