Var k, m: integer; // описываютя целые переменные k и m Work: array[1..15] of integer; // описывается массив, который состоит из 15 целых чисел 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; // переменной m (счетчику) присваивается начальное значение 0 For k := 1 to 15 Do //в цикле с параметром (параметр здесь это k), который меняется от 1 до 7 If Work[k] < 7 Then //значения всех элементов массива сравниваются с 7. Begin //Если это значение < 7, то m := m + 1; //значение счетчика увеличивается на 1 End; Writeln(m); //полученное значение счетчика выводится на экран End. Проанализировав значения элементов массива, получим, что значение m=8