Pascal/Turbo Pascal - Reportes de notas

uses crt;

var

	primerNombre,segundoNombre:string;

	primerApellido,segundoApellido:string;

	cedula:string;

	fechaNac:string;

	n1,n2,n3,promedio:real;

begin

	clrscr;

	write('Primer nombre: '); readln(primerNombre);

	write('Segundo nombre: '); readln(segundoNombre);

	write('Primer apellido: '); readln(primerApellido);

	write('Segundo apellido: '); readln(segundoApellido);

	write('Cedula: '); readln(cedula);

	write('Fecha de nacimiento (dd/mm/aaaa: '); readln(fechaNac);

	write('Calificacion 1 : '); readln(n1);

	write('Calificacion 2: '); readln(n2);

	write('Calificacion 3: '); readln(n3);

	promedio:=(n1+n2+n3)/4;

	writeln; writeln;

	writeln('Reporte de notas');

	writeln('----------------');

	write('Bachiller:',primerNombre+' '+segundoNombre);

	write(' ',primerApellido+' '+segundoApellido);

	writeln;

	write('Cedula: ',cedula); write(' Nacido el: ',fechaNac);

	writeln;

	write('Calificacion 1: ',n1:4:2); write(' Calificacion 2 : ',n2:4:2); write(' Calificacion 3: ',n3:4:2);

	writeln;

	write('Promedio final de notas: ',promedio:4:2); write(' Puntos');

end.

promedio:=(n1+n2+n3)/3;