Program zap_1;
Type student = record
n : integer ;
fio : string[40] ;
bal : array [1..3] of integer 
end;
Var spisok : student ; 
i, j, kol, s : integer; sr : real;
Begin
kol:=0; 
With spisok do 
For i:=1 to 3 do 
begin
n:=i;
Write (' введите фамилию ', i ,' ');
Readln (fio);
s:=0;
For j:= 1 to 3 do
begin
write ( 'введите оценку: ' );
readln ( bal [j] );
s := s+ bal [j];
end;
if s=15 then kol:=kol+1; 
sr := s/3; writeln ( fio, ', средний бал = ', sr:4:1); end;
writeln ( ' количество отличников= ', kol );
readln;
end.