Помогите с заданием по информатике ! (Pascal ABC)
1)Дано 40 случайных целых чисел,∈ (20;82). Подсчитать количество чётных чисел , кратных 3. Вывести эти числа на экран.
2)Найти наименьшее из 20 случайных целых чисел ,∈ (20;370)
Вывести результат на экран , само число и его номер.
Заранее , огромное спасибо!

1)const  n=40;var  a:array [1..n] of integer;  i,k:integer;begin  Randomize;  k:=0;  Writeln('Исходный массив');  for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;  Writeln; Writeln('Четные элементы, кратные 3');  for i:=1 to n do    if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;  Writeln; Writeln('Отобрано элементов: ',k)end.ПримерИсходный массив43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48 Четные элементы, кратные 354 30 36 24 36 48 Отобрано элементов: 62)const  n=20;var  a:array [1..n] of integer;  i,imin:integer;begin  Randomize;  Writeln('Исходный массив');  imin:=1;  for i:=1 to n do begin    a[i]:=random(351)+20;    Write(a[i],' ');    if a[i]<a[imin] then imin:=i    end;  Writeln;  Writeln('Минимальный элемент a[',imin,']=',a[imin])end.ПримерИсходный массив292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155 Минимальный элемент a[14]=39