надо добавить если не один студент не соответствует условии выводить таких нет Uses crt;Type anketa=recordFIO: string; POL: string; Dat_r: string[8]; Height: integer; B1, B2, B3, B4: 2. . 5; stipendia: integer;adress: string[15]; end;varN: integer;student: array [1. . 50] of anketa;Procedure set_stud (N: integer);var i: integer;beginfor i:=1 to N dowith student[i] dobeginwriteln ('сведения о ',i,' студенте ');write ('введите ФИО ');readln(FIO);write('введите пол ');readln(POL);write ('введите дату рождения ');readln(Dat_r);write ('введите рост ');readln(height);write ('введите оценки ');read(B1, B2, B3, B4);write ('введите стипендию ');readln(stipendia);write ('введите место жительства ');readln(adress);end;end;Procedure Choose (N:integer);var i: integer;beginwriteln();for i:=1 to N do beginwith student[i] do if (POL='Ж') or (pol='ж') and ((B1=3) or (B2=3) or (B3=3) or (B4=3)) then Writeln(FIO)end;end;beginwrite ('введите число студентов в группе ');readln(N);set_stud(N);writeln();writeln('студенты заданного пола получившие хотя бы одну 3 ');Choose(N);End.