Известны результаты сдачи трех экзаменов пятью студентами. Найти фамилии студентов, не сдавших оба экзамена

const
  n = 5;
 
type
  TStudent = record
    fio: String[63];
    exam: array [1..3] of Integer;
  end;
 
var
  st: array [1..n] of TStudent;
  i, j, k: Integer;
 
begin
  randomize;
  for i := 1 to n do 
    with st[i] do
    begin
      fio := 'Иванов' + IntToStr(i);
      write(fio, ' ');
      for j := 1 to 3 do
      begin
        exam[j] := random(4) + 2;
        write(exam[j]:4)
      end;
      writeln;
    end;
  writeln('Двоечники: ');
  for i := 1 to n do 
    with st[i] do
    begin
      k := 0;
      for j := 1 to 3 do
        if exam[j] < 3 then 
          Inc(k);
      if k >= 2 then 
        WriteLn(fio);
    end;
end.

const
  n = 9;
 
var
  exam: array [1..n, 1..3] of Integer;
  i, j, k: Integer;
 
begin
  randomize;
  for i := 1 to n do 
  begin
    write('Студент № ', i, ', оценки: ');
    for j := 1 to 3 do
    begin
      exam[i, j] := random(4) + 2;
      write(exam[i, j]:4)
    end;
    writeln;
  end;
  writeln('Двоечники: ');
  for i := 1 to n do 
  begin
    k := 0;
    for j := 1 to 3 do
      if exam[i, j] < 3 then 
        Inc(k);
    if k >= 2 then 
      WriteLn('Номер студента двоечника: ', i);
  end;
end.