Program   ucheba;
        type  uchenik=record          {описание  записи }
nomer:integer;
fio:string[12];
godr:1991..1999;
rost:integer;
adres: string[30];
sport: string[12];
razr: integer;
sem: string[12];
lab: integer;
krab: integer;
zach: string[8];
end;
  var gruppa:array[1..5]   of uchenik;
  vspom:uchenik;
   i:integer;
  ozenki:record
 fiz, math, inform,istor:2..5;
end;
 prog: record
lab:0..4;
krab:0..5;
zach: string[8];
end;
begin                                  {формирование  таблицы}
 with  vspom, ozenki do
 for  i:=1  to 5 do
  begin
 writeln('введите порядковый номер');
 readln(nomer);
writeln ('введите ФИО');
readln (fio);
writeln ('введите год рождения');
readln (godr);
writeln('введите адрес');
readln( adres);
writeln('введите вид спорта и разряд');
3readln(sport, razr);
writeln(' семейное положение');
readln( sem);
writeln ('введите оценки по физ., матем., инф.,истор.');
readln (fiz, math, inform, istor);
writeln('программирование.введите результаты по лаб.р,контр.р и зачет');
readln(lab, krab,zach);
gruppa [i]:=vspom;
 end;
                                                      {формирование данных об отличниках}
writeln ('данные об отличниках');
                                for  i:=1 to 2 do
                                with gruppa [i], ozenki,prog do
                                 if (fiz=5) and(math=5) and(inform=5) and(istor=5) and (lab=4) and (krab=5) then  begin
             writeln (nomer,'  ',fio);
             end;
writeln(' сдали математику на отлично');
             for i:=1 to 5 do
             with gruppa[i], ozenki do
             if math=5 then begin
             writeln( fio);
             end;

writeln(' имеют задолжености по лаб.р');
for i:=1 to 5 do
with gruppa[i], prog do
if lab<4 then begin
writeln( fio);
end;

end.