uses crt;type oc=record per,bt,tr:integer;end;ab=recordfam,im:string;ocen:oc;end;var b:array [1..50] of ab;l:ab;i,n,g,k,h:integer;beginclrscr;writeln ('введи количество абитуриентов');readln (n);Writeln ('Вводи фамилии, имена и 3 оценки');for i:=1 to n dowith b[i] dobeginreadln (fam);readln (im);readln (ocen.per,ocen.bt,ocen.tr);end;clrscr;for j:=1 to n dofor i:=1 to n-1 doif b[i].fam>b[i+1].fam then beginl:=b[i];b[i]:=b[i+1];b[i+1]:=l;end;writeln ('Список всех аббитуриентов:');for i:=1 to n dowriteln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr);writeln ('Список допущенных аббитуриентов');for i:=1 to n dowith b[i] do beginwith ocen doif (per>30) and (bt>30) and (tr>30) and (per+bt+tr>140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr);end;readln;end.