Подсчёт количества элементов массива, удовлетворяющих заданному условию. Составление и отладка программ. Язык программирования Pascal

Из предложенных пунктов составьте верный алгоритм вычисления количества элементов массива (списка):

Дан код программы: 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 9 do if (Dat[k] > 12) and (Dat[k + 1] > 12) then m := m + 1; writeln(m); End. Определите, что будет выведено на экран в результате выполнения программы.

Дан код программы: var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 56; Dat[2] := 72; Dat[3] := 20; Dat[4] := 41; Dat[5] := 14; Dat[6] := 22; Dat[7] := 30; Dat[8] := 12; Dat[9] := 66; Dat[10] := 35; m := 0; for k := 1 to 10 do if (Dat[k] > 25) and (Dat[k] mod 3 = 0) then m := m + 1; writeln(m); End. Определите, что будет выведено на экран в результате выполнения программы.