Люди очень срочно решите пожалуйста задачу на Паскале: их 4 штуки! 1.дан массив тз N элементов. Есть ли в нем чётные элементы, которые кратны заданному числу K. 2. Дан массив из Nэлементов. Посчитать, сколько элементов массива равных минемальному. 3. Сформировать массив из Nэлементов: 10 12 16 22 30 40. 4. Дан массив из Nэлементов. Перемножить минемальные элементы на 2. Heeelp!

1)
const n=100000;
var
k:integer;
flag:boolean;
a:array[1..n]of integer;
begin
flag:=false;
randomize;
read(k);
for i:=1 to n do
begin
a[i]:=random(1000);
if (a[i] mod k=0) and (i mod 2=0) then flag:=true;
end;
if flag then write(Есть) else write(Нет");
end.