Program labor6_2;
uses crt;
type
   student=record
        fam:string[15];
        inn:string[12];
        datenal:string[10];
        yearb:string[10];
        yearpos:string[10];
        kurs:string[5];
        group:string[10];
        kolvos:string[5];
        bal:string[5];
        b1,b2,b3,b4,b5,b6,b7,b8,b9,b10:2..5;
        end;
   var  stipendia:array[1..4] of student;
        s:student; i,h,f:integer;
procedure Ex;
   begin
        write('|   Familija   |');
        write('|   Data rojdenija   |');
        write('|   Ocenki za poslednuju sessiju   |');
      for i:=1 to 4 do
       with stipendia[i] do
        if f = > bal then
     begin
        writeln('|',fam:20, '  |');
        writeln('|',yearb:14, '  |');
        writeln('|',b1,b2,b3,b4,b5,b6,b7,b8,b9,b10:20, '  |');
        end;
      readkey;
   end;
begin
   clrscr;
   for  i:=1 to 4 do
   with klass[i] do
     begin
        writeln('Vvedite familiu');
        readln(fam);
        writeln('Vvedite INN');
        readln(inn);
        writeln('Vvedite datu vyda4i Svid. o post. na u4et v nal.org.');
        readln(datenal);
        writeln('Vvedite datu rojdenija');
        readln(yearb);
        writeln('Vvedite god postuplenija');
        readln(yearpos);
        writeln('Vvedite kurs');
        readln(kurs);
        writeln('Vvedite gruppu');
        readln(group);
        writeln('Vvedite kol-vo semestrov obu4enija');
        readln(kolvos);
        writeln('Vvedite po 5 ocenok za 1 i 2 semestr');
        readln(b1,b2,b3,b4,b5,b6,b7,b8,b9,b10);
        f:=b1+b2+b3+b4+b5+b6+b6+b7+b8+b9+b10;
        writeln('Vvedite srednii bal');
        readln(bal);
        end;

        clrscr;
        ex;
end.