Необходимо посчитать средний балл..

[Jameses]

Здравствуйте! Необходимо посчитать средний балл..
Дано:

const N=25;
Type anketa=record
fio: string;
ocenki: record m,f,p: 1..5;end;
end;
massiv=array[1..N] of anketa;
var gr:massiv;

Срочно.. Пожалуйста

[Stilet]

Что за спешка? Ночь на дворе.

var i:integer; sb:double;
...
for i:=1 to N do 
 writeln('Средний бал ',
    massiv[i].fio,' - ',
    (massiv[i].ocenki.m+massiv[i].ocenki.f+massiv[i].ocenki.p)/3
 );
...