PROMEDIO NOTAS CON 7 ALUMNOS

program Project1;( promedio notas)

uses
dialogs,sysutils;
type estudiante=class
procedure iniciar(n:string;n1,n2,n3,n4,n5,n6,n7:real);
function media:real;
procedure mostrar;
private
nombre:string;
nota1,nota2,nota3,nota4,nota5,nota6,nota7:real;
end;
procedure estudiante.iniciar;
begin
nombre:=n;nota1:=n1;nota2:=n2;nota3:=n3;nota4:=n4;nota5:=n5;nota6:=n6;nota7:=n7
end;
function estudiante.media;
begin
media:=(nota1+nota2+nota3+nota4+nota5+nota6+nota7)/7;
end;
procedure estudiante.mostrar;
begin
showmessage(nombre+'ha obtenido en el promedio de 7 materias: '+floattostr(media));
end;
var e1,e2,e3,e4:estudiante;
begin
e1:=estudiante.create;
e2:=estudiante.create;
e3:=estudiante.create;
e4:=estudiante.create;
e1.iniciar('LINA ',15,68,59,64,89,97,100);e1.mostrar;
e2.iniciar('KEVIN ',15,68,59,64,89,97,100);e2.mostrar;
e3.iniciar('VICTOR ',15,68,59,64,89,97,100);e3.mostrar;
e4.iniciar('MAURICIO ',15,68,59,64,89,97,100);e4.mostrar;
END.