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

var       a:array[1..15] of integer;    i,k:integer; begin       writeln('Исходный массив');       k:=0;       for i:=1 to 15 do       begin            a[i]:=random(30)+10;            write(a[i]:3);       end;       writeln;       writeln('Числа кратные 3');     for i:=1 to 15 do            if (a[i] mod 3 = 0) then            begin                   write(a[i]:3);                   inc(k);            end;            writeln;            write('Таких чисел - ',k); end.