Дана программа: Program E2_1; Var a: Array [1..8] Of

Дана программка:
Program E2_1;

Var a: Array [1..8] Of Integer;

M, k: Integer;

Begin

For k := 1 To 8 Do Readln (a[k]);

M := a[1];

For k := 2 To 8 Do

If M lt; a[k] Then M := a[k];

Write (M)

End.

Сколько раз будет выполнен оператор M := a[k] при данном массиве (3, 8, 7, 9, 4, 10, 2, 12)?