const N=15; type stdnt = record surname: string[15]; gr: word; lrn: record den: 1..31; mes: 1..12; god: word; end; grup: string[7]; kurs: byte; p: boolean; ocenki: array [1..5, 1..6] of 2..5; end; var stud: array [1..N] of stdnt; i, j, z: byte; BEGIN for i:=1 to N do with stud[i] do begin p:=true; write(' Фамилия: '); readln(surname); write('Год рождения: '); readln(gr); write('Начало учебы: '); with lrn do readln(den, mes, god); write(' Группа: '); readln(grup); write(' Курс: '); readln(kurs); for j:=1 to kurs do begin write(' ', j, ' курс: '); for z:=1 to 6 do begin read(ocenki[j, z]); if (ocenki[j, z]=3) then p:=false; end; end; readln; end; writeln('Фамилия':7, 'Г.Р.':5, ' ', 'Начало учебы':11, ' Группа', ' Курс'); for i:=1 to N do with stud[i] do if p then writeln(surname:7, gr:5, ' ', lrn.den, '.', lrn.mes, '.', lrn.god, ' ', grup:5, ' ', kurs:3); END.