uses rab;
const n=7;
var
 arr:ta;
 i,kol:integer;
begin
 for i:=1 to n do
  begin
   write(i,'-й студент: ');
   readln(arr[i].fio);
   write(' Оценка 1: ');
   readln(arr[i].bal1);
   write(' Оценка 2: ');
   readln(arr[i].bal2);
   write(' Оценка 3: ');
   readln(arr[i].bal3);
   write(' Форма обучения: ');
   readln(arr[i].fo);
  end;
  writeln('--------------------------------------------------------');
  sort(arr,n);
  writeln('Средний бал менее 4: ');
  for i:=1 to n do
 if sr(i,arr)<4 then
 begin
  writeln(arr[i].fio);
  write(' Средний бал: ');
    writeln(sr(i,arr));
   end;
  writeln('--------------------------------------------------------');
writeln('Остальные в алфовитном порядке: ');
for i:=1 to n do
 if sr(i,arr)>=4 then
 begin
  writeln(arr[i].fio);
  write(' Средний бал: ');
    writeln(sr(i,arr));
end;
end.