Pues revisando mi ordenador encontre este viejo code que hice en la escuela, espero a alguien le sirva de ejemplo...

Program promedio_final;
Uses
 CRT;
Var
  a,b,c,z:real;
Begin
clrscr;
writeln ('Ingresa la calificacion del Primer Periodo:');
Readln (a);
writeln ('Ingresa la calificacion del Segundo Periodo:');
Readln (b);
writeln ('Ingresa la calificacion del Tercer Periodo:');
Readln (c);
z:=((a+b+c)/3);
writeln ('Tu calificacion es de ',z:0:2);
if z >= 8 then
writeln ('Estas excento')
else
writeln ('ESTAS EN EXAMEN FINAL');
readln;
end.
{BY [Z]tuX}
             

By [Z]tuX