Распечатать список студентов, получивших все оценки 2. - Pascal - Ответ 1693309

 program wwod_swed;
uses crt;
Type birthday = Record
  dd:1..31;
    mm:string[10];
yy:integer;
end;
student=Record
famil:string[20]; 
name:string[15];
date:birthday;
ball: array[1..3] of integer;   
srball:real;    
end;
Var
gruppa: array[1..20] of  student;  
n,k:word;
i:integer;
m:real;
begin
clrscr;
Write('Сколько человек в группе? '); Readln(n);
Writeln ('введите фамилию студента:');
for i:=1 to n do
with gruppa[i] do       
begin
write(i,'  студент ');
writeln('фамилия '); Readln (Famil);
writeln('имя ');  Readln (name);
writeln('дата рождения '); Read (date.dd); Read (date.mm); Readln (date.yy);
write('оценки'); Read (ball[1]); Read (ball[2]);Readln (ball[3]);
srball:=(Ball[1]+ball[2]+ball[3])/3;
end;
 
 
 
for i:=1 to n do
with gruppa[i] do       
begin
writeln(Famil,' ',name,' ',date.dd,' ',date.mm,' ',date.yy,' ',ball[1],ball[2],ball[3],' ' ,srball);
 
end;
 
m:=gruppa[1].srball;
k:=1;
for i:=2 to n do
if m> gruppa[i].srball then  begin m:= gruppa[1].srball; k:=i; end; 
with gruppa[k] do begin
writeln (famil,' ',name, srball);
Readln;
end;
end.