Школьник делал ла­бо­ра­тор­ную ра­бо­ту по физике, в ходе ко­то­рой из­ме­рил 10 раз силу тока и за­пи­сал по­ка­за­ния ам­пер­мет­ра в таб­ли­цу Tok \(Tok⟨0⟩ — ре­зуль­тат пер­во­го измерения, Tok⟨1⟩ — вто­ро­го и т\. д\.\). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.
Алгоритмический язык
алг
нач
цел­таб Tok

цел k, m
Tok := 10; Tok := 14
Tok := 15; Tok := 4
Tok := 12; Tok := 6
Tok := 3; Tok := 5
Tok := 5; Tok := 10
m := 0
нц для k от 1 до 10
если Tok > 6 то
m := m + 2
все
кц
вывод m
кон
Бейсик

DIM Tok\(10\) AS INTEGER
DIM k,m AS INTEGER
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
IF Tok\(k\) > 6 THEN
m = m + 2
END IF
NEXT k
PRINT m
Паскаль

Var k, m: integer;
Tok: array

of integer;
Begin
Tok := 10; Tok := 14;
Tok := 15; Tok := 4;
Tok := 12; Tok := 6;
Tok := 3; Tok := 5;
Tok := 5; Tok := 10;
m := 0;
For k := 1 to 10 Do
If Tok > 6 Then
Begin
m := m + 2;
End;
Writeln\(m\);
End.