Program S2Lab3;
uses crt;
type stud=record
     fam:string[20];
     god:integer;
     ball:real;
     end;
Var sp:array [1..15] of stud;
    a:real;
    q,i,n,w:integer;
    f:text;
Begin
clrscr;
assign(f,'Vitalik.txt');
Rewrite(f);
writeln;
write('Vvedite kol vo zapisey (ot 1 do 15): ');
readln(n);
If n>15 then write('Zap bolshe 15!!!! Nado 15<') Else
Begin
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Familia studenta: ');
   readln(sp[i].fam); write(f,sp[i].fam,'   ');
  write('God roxdeniya: ');
   readln(sp[i].god); write(f,sp[i].god,'   ');
  write('Sredniy ball za sessiyu: ');
   readln(sp[i].ball); writeln(f,sp[i].ball,'    ');
 End;
a:=0;
w:=0;
For i:=1 to n do
 Begin
  a:=a+sp[i].ball;
  if sp[i].ball=5 then w:=w+1;
 End;
a:=a/n;
writeln('Sredniy ball gruppb): ',a:2:2);
writeln(f,'Sredniy ball gruppb): ',a:2:2);
writeln('Kol-vo studentov uchasihsy na otl: ',w);
writeln(f,'Kol-vo studentov uchasihsy na otl: ',w);
End;
close(f);
readln;
End.