3. Программа создает массив записей о многих студентах одного факультета А затем из общего списка вывести фамилии студентов 2-го курса и его группу. Восстанови программу. program primer 2 ; type anketa-record var student: array [1..100] of_______; I: integer; begin for i:=1 to 100 do with begin fio: string[45]; dat_r: string[8]; adres: string[50]; curs: 1..5; grupp: string[3] end. [i] do writeln (введите сведения о, I, '-м студенте'); writeln ('Введите фамилию, имя и отчество'); readln (fio); writeln ('введите дату рождения"); readln writeln (введите адрес); readln(adres); writeln ('введите курс'); readln(curs); writeln ('введите группу'); readln end; for I:=1 to 100 do begin if student[i] do then writeln(' фамилия студента :​