Составить список учебной группы, включающей 5 человек. Для каждого учащегося указать фамилию, дату рождения, год поступления, курс, группу, оценки каждого года обучения. Информацию о каждом учащемся оформить в программе в виде записи. Совокупность записей объединить в массив. Распечатать анкетные данные студентов, успевающих на 4 и 5 — Pascal(Паскаль)

Uses Crt;
 
 
Type 
    ocenki = record
     algebra:integer;
     fizika:integer;
     istoriya:integer;
    end;
 
    student = record
     fam,grup:string[20];
     God_pos, kurs:integer; 
     ocen:array[1..5] of ocenki;
     data:real;    
    End;
    
Const n=5;   {количество студентов}
Var
i,j: byte; st: array [1..n] of  student;
Proverka:boolean;

Begin
ClrScr;
For i:=1 to n do
Begin
   Write('Введите фамилию студента :'); Readln(st[i].fam);
   Write('Введите дату рождения студента :'); Readln(st[i].data);
   Write('Введите год поступления :'); Readln(st[i].God_pos);
   Write('Введите курс студента :'); Readln(st[i].kurs);
   Write('Введите группу студента :'); Readln(st[i].grup);
   Write('Введите оценки каждого года обучения :');
    For j:=1 to st[i].kurs do
     begin
       Write('Оценка за алгебру ',i,' kursа');
       Readln(st[i].ocen[j].algebra);
       Write('Оценка за физику  ',i,' kursа');
       Readln(st[i].ocen[j].fizika);
       Write('Оценка за историю  ',i,' kursа');
       Readln(st[i].ocen[j].istoriya);
     end; 
     
End;
 
For i:=1 to n do
 begin
  proverka:=true;
 For j:=1 to st[i].kurs do
  if (st[i].ocen[j].algebra<4) or (st[i].ocen[j].fizika<4) or (st[i].ocen[j].fizika<4) then
   Proverka:=false;
  IF Proverka then
   Writeln(St[i].Fam,' молодец!!!');
  Proverka:=true;
 end;
   
Readkey;
End.