алг
нач
целтаб Tok[1:10]
цел k, m
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
нц для k от 1 до 10
если Tok[k] > 6 то
m := m + 2
все
кц
вывод m
кон