Опишите, используя структурированные записи, экзаменационную ведомость, в которой проставляются оценки за четыре экзамена

const
  n = 4;// число студентов
 
type
  
  student = record // запись типа студент: фамилия и оценки по 4 экзаменам 
    SName: string;
    exam1: byte;
    exam2: byte;
    exam3: byte;
    exam4: byte;
  end;
 
var
  st: array[1..n] of student; //массив студентов
  k: integer := 0;//сколько студентов не сдали экзамены
 
begin
  for var i := 1 to n do //заполнение данных
    with st[i] do
    begin
      writeln('Ведите данные  ', i, '   студента');
      write('Фамилия: ');
      readln(SName);
      write('Оценка за 1 экзамен: ');
      readln(exam1);
      write('Оценка за 2 экзамен: ');
      readln(exam2);
      write('Оценка за 3 экзамен: ');
      readln(exam3);
      write('Оценка за 4 экзамен: ');
      readln(exam4);
    end;
  for var i := 1 to n do
    with st[i] do
      if (exam1 < 3) and (exam2 < 3) and (exam3 < 3) and (exam4 < 3) then k += 1 //если все экзамены провалены, то увеличиваем k
      else if ((exam1 > 3) and (exam2 > 3) and (exam3 > 3)) or ((exam1 > 3) and (exam2 > 3) and (exam4 > 3)) or ((exam2 > 3) and (exam3 > 3) and (exam4 > 3)) or ((exam1 > 3) and (exam3 > 3) and (exam4 > 3)) //ищем тех, кто написал 3 экзамена на 4/5
        then writeln('Студент ', SName, ' сдал 1 экзамен на оценку ', exam1, ', 2 экзамен на оценку ', exam2, ', 3 экзамен на оценку ', exam3, ', 4 экзамен на оценку ', exam4, '.');
  writeln('Количество, не сдавших: ', k);
end.