Код:
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.