Работа с массивами в Паскале - Pascal

Формулировка задачи:

Помогите пожалуйста решить задачи в Паскале, начало уже есть а вот дальше не могу. 1) Задача Создать одномерный массив из 13 элементов. Вычислить наименьшее значение из четных элементов. Вывести эти значения на экран.

program prim1;
var
a,b,summ:integer
mas:array[1..13] of integer
begin
randomize;
writeln;
for a:=1 to 13 do 
begin
mas [a]:= random(13);
write (mas[a],' ');
end;
writeln;
end;
for a:=1 to 13 do
if a mod 2 = 0 then ……

.. {Дальше не пойму как это всё вычислить и вывести на экран} 2) Задача Создать матрицу 3х5. Для каждого столбца с нечетными номерами вычислить произведение элементов этих строк. Вывести результат на экран.

program prim2;
var
a,b,summ:integer
mas:array[1..3,1..5] of integer
begin
randomize;
writeln;
for a:=1 to 3 do begin
for b:=1 to 5 do begin
mas [a,b]:=random(5);
write (mas[a,b],' ');
end;
writeln;
end;
for a:=1 to 3 do
for b:=1 to 5 do
if b mod 2 = 1 then …….

. {Дальше не пойму как это всё вычислить и вывести на экран}

Решение задачи: «Работа с массивами в Паскале»

Листинг программы

program prim2;
uses crt;
var
a,b,p:integer;
mas:array[1..3,1..5] of integer;
begin
clrscr;
randomize;
writeln('Матрица:');
for a:=1 to 3 do
 begin
  for b:=1 to 5 do
   begin
     mas [a,b]:=random(5)+1;
     write (mas[a,b]:3);
   end;
  writeln;
 end;
for b:=1 to 5 do
if odd(b) then
 begin
  p:=1;
  for a:=1 to 3 do
  p:=p*mas[a,b];
  writeln('Произведение в ',b,' столбце=',p);
 end;
readln
end.

Объяснение кода листинга программы

В программе объявлены три переменные: a, b и p типа integer.
Также объявлен массив mas типа array[1..3,1..5] of integer.
С помощью функции randomize и команды clrscr инициализируется генератор случайных чисел и очищается экран соответственно.
Выводится сообщение «Матрица:» и для каждой строки массива (от 1 до 3) выполняется цикл, в котором для каждого элемента (от 1 до 5) вычисляется случайное число от 1 до 5 и записывается в соответствующую ячейку массива.
Далее проверяется, является ли номер текущего столбца нечетным. Если да, то переменной p присваивается значение 1.
Затем для каждой строки массива (от 1 до 3) выполняется внутренний цикл, в котором переменной p присваивается произведение текущего элемента массива и числа p.
Если внутренний цикл завершается, то выводится сообщение с результатом произведения в текущем столбце.
Программа завершается с помощью команды readln.