Произведение элементов в массиве.

[kyle16]

Дано три массива целых чисел А [5], В [4], С [8] и целое число М. При последовательном просмотре элементов от начала массивов найти в каждом из них произведение элементов, находящихся до числа М.

Написать программу решения задачи с обязательным использованием процедур и / или функции для описания действий, которые должны повторять, а именно:
- Введение элементов массива;
- Вывод элементов массива;
- Выполнение над массивом действий

[newerow1989]

const m=10;
var a:array[0..4] of integer;
    b:array[0..3] of integer;
    c:array[0..7] of integer;
    i:integer;
    
procedure Vvod(const c:char; var x:array of integer);
begin
   For i:=Low(x) to High(x) do
   begin
      Write(c,'[',i,'] = ');
      Readln(x[i]);
   end;
   Writeln;
end;

procedure Vyvod(var x:array of integer);
begin
   For i:=Low(x) to High(x) do
      Write(x[i]:3,'  ');
   Writeln;
   Writeln;
end;

function Pr(x:array of integer):integer;
begin
   Result:=1;
   For i:=Low(x) to High(x) do
      If x[i]<m then
         Result:=Result*x[i] else
         Exit;
end;

begin
   Vvod('A',a);
   Vvod('B',b);
   Vvod('C',c);
   Vyvod(a);
   Vyvod(b);
   Vyvod(c);
   Writeln(Pr(a));
   Writeln(Pr(b));
   Writeln(Pr(c));
   Readln;
end.