В таблице Work хранятся данные о количестве заказов, принятых фирмой "Алоэ" с первого по...

В таблице Work хранятся данные о количестве заказов, принятых фирмой "Алоэ" с первого по 15 ноября. (Work[1] – число заказов, принятых 1 ноября, Work[2] – 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
1.Алгоритмический язык
алг

нач

целтаб Work[1:15]

цел k, m

Work[1] := 5; Work[2] := 4

Work[3] := 5; Work[4] := 7

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

Work[7] := 7; Work[8] := 3

Work[9] := 9; Work[10] := 7

Work[11] := 0;Work[12] := 9

Work[13] := 1;Work[14] := 0

Work[15] := 8

m := 0

нц для k от 1 до 15

если Work[k] < 7 то

m := m + 1

все

кц

вывод m

кон
2.Бейсик
DIM Work(15) AS INTEGER

DIM k,m AS INTEGER

Work(1)= 5: Work(2)= 4

Work(3)= 5: Work(4) = 7

Work(5)= 6: Work(6)= 12

Work(7)= 7: Work(8)= 3

Work(9)= 9: Work(10)= 7

Work(11)= 0: Work(12)= 9

Work(13)= 1: Work(14)= 0

Work(15)= 8

m = 0

FOR k = 1 TO 15

IF Work(k) < 7 THEN

m = m + 1

END IF

NEXT k

PRINT m
3.Паскаль
Var k, m: integer;

Work: array[1..15] of integer;

Begin

Work[1] := 5; Work[2] := 4;

Work[3] := 5; Work[4] := 7;

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

Work[7] := 7; Work[8] := 3;

Work[9] := 9; Work[10] := 7;

Work[11] := 0; Work[12] := 9;

Work[13] := 1; Work[14] := 0;

Work[15] := 8;

m := 0;

For k := 1 to 15 Do

If Work[k] < 7 Then

Begin

m := m + 1;

End;

Writeln(m);

End.
______
Пожалуйста, поясните как решать, серьёзно не доходит)

Пояснения к задаче - в прилагаемом файле