составьте программу, которая заполняет массив a(1..20) случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы, значения которых являются четными и кратными 3.

var    a: array[1..100] of integer;    i, n: integer;    k: integer;begin    {ввод массива}    n := 20;    writeln('Данные массива:');    for i := 1 to n do    begin        a[i] := random(30 + 1) + 1;        write(a[i], ' ');    end;    writeln();        writeln('Выбранные:');    for i := 1 to n do        if a[i] mod (2 * 3) = 0 then            write(a[i], ' ');end.