Составить массив из 10 целых чисел и подсчитать количество элементов массива,значения которых не превышают 3.

const    vt_max=10;var       i:byte;    sum:integer;    vt:array[1..vt_max]of integer;    begin  sum:=0;  writeln('Начальный массив случайных чисел');  for i:=1 to vt_max do begin    vt[i]:=random(0,12);    write(vt[i]:6);    if (vt[i]<=3) then      sum:=sum+vt[i];  end;  writeln('');    writeln('Сумма элементов не больше 3 равна ', sum);end.