Задание

Определите, какое число будет напечатано в результате работы следующей программы.

Var k, m: integer;

Tok: array[1..10] of integer;

Begin

Tok[1] := 10; Tok[2] := 14;

Tok[3] := 15; Tok[4] := 4;

Tok[5] := 12; Tok[6] := 6;

Tok[7] := 3; Tok[8] := 5;

Tok[9] := 5; Tok[10] := 10;

m := 0;

For k := 1 to 10 Do

If Tok[k] > 6 Then Begin

m := m + 2;

End;

Writeln(m);

End.