Составить программу на Паскале. Задан одномерный массив В(10), заполненный произв

Var  B : array [1..10] of integer;  i,s,k : integer;begin  k := 10;  s := 0;  randomize;  for i := 1 to 10 do  begin    B[i] := random(40);    writeln(B[i]);    if B[i] > k then      s := 1 + s;  end;write('Кол-во элементов массива, больших k : ', s);end.