Заполнить массив L[15] случайными числами в интервале от 10 до 40, вывести его на экран и найти количество чисел кратных

program krat_3;var L: array [1..15] of integer;k: integer;beginrandomize;for i:integer:=1 to 15 do beginL[i]:=random(31)+10; //Присвоение элементу L[i] значения// равного случайному числуif L[i] mod 3 = 0 then k:= k + 1; //Условие для счетчика кратных чиселwrite(L[i]:4); //Вывод элементов массива на экранend;writeln(); write(\'Количество чисел,кратных трем: \', k)end.