Помогите, пожалуйста, сделать лабу по паскалю...

[Анюта1]

Помогите, пожалуйста, сделать лабу по паскалю...

Введение сведений о 8 студентах: фамилия, год рождения, рейтинг по предметам:история алгоритмизация, дискретный анализ.
Вычислить средний балл группы и распечатать список студентов, имеющих средний бал ни ниже среднего балла группы.

 

[DDS]

Скоро будет.

 

[DDS]

const n=8;
var f1:array [1..n] of string;
    f2:array [1..n] of integer;
    f3,f4,f5:array [1..n] of byte;
    i:byte;s,srst,srg:real;
begin
for i:=1 to n do begin
write('введите фамилию ');
readln(f1[i]);
write('введите год рождения ');
readln(f2[i]);
write('оценка по истории ');
readln(f3[i]);
write('оценка по алгоритмизации ');
readln(f4[i]);
write('оценка по  дискретному анализу');
readln(f5[i]);
end;
s:=0;
for i:=1 to n do
s:=s+f3[i]+f4[i]+f5[i];
srg:=s/(n*3);
writeln('Средний бал по группе  ',srg:0:2);
writeln('Список студентов, имеющих средний бал ни ниже среднего балла группы.');
for i:=1 to n do begin
srst:=0;
srst:=(f3[i]+f4[i]+f5[i])/3;
if srst>srg then writeln(f1[i]);
end;
end.

 

[Анюта1]

большое спасибо!