Выберите фрагмент программы, в котором происходит работа с одномерным массивом:

• var
  Dat: array
  \[0\.\.4\]
  of integer = \(12, 15, 17, 15, 14\);
  m, k: integer;
  begin
  m := 0;
  for k := 0 to 4 do
  begin
  if Dat
  \[k\]
  >= 14 then
  m := m + 1;
  end;
  writeln\(m\);
  end.
• var
  Dat: array
  \[0\.\.4\]
  of integer =
  \[12, 15, 17, 15, 14\]
  ;
  s, k: integer;
  begin
  s := 0;
  for k := 0 to 4 do
  begin
  s := s + 1;
  end;
  writeln\(s\);
  end.
• var
  Dat1, Dat2, Dat3, Dat4, Dat5, m: integer;
  begin
  Dat1 := 12;
  Dat2 := 15;
  Dat3 := 17;
  Dat4 := 15;
  Dat5 := 14;
  m := 0;
  if Dat1 >= 14 then
  m := m + 1;
  writeln\(m\);
  end.