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

program krat_3;
var L: array [1..15] of integer;
k: integer;
begin
randomize;
for i:integer:=1 to 15 do
begin
L[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.