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