Установите последовательность

• Var k, m: integer;
• Dat: array
  \[1\.\.10\]
  of integer;
• Begin
• Dat
  \[1\]
  := 12; Dat
  \[2\]
  := 15;
  Dat
  \[3\]
  := 17; Dat
  \[4\]
  := 15;
  Dat
  \[5\]
  := 14; Dat
  \[6\]
  := 12;
  Dat
  \[7\]
  := 10; Dat
  \[8\]
  := 13;
  Dat
  \[9\]
  := 14; Dat
  \[10\]
  := 15;
  m := 0;
• for k := 1 to 10 do
• if Dat
  \[k\]
  =15 then
• begin
  m := m + 1;
  end;
• writeln\(m\);
• End.