Паскаль. Процедуры

[ROMA2PVT]

А какая разница?

Да не знаю просто стало интересно.

[AndrewPl]

не знаю, мне в таком виде передали

подскажите как сделать чтобы выводило не по 9 парных элементов,а соответствовало количеству парных элементов в массивах данных в условии
вот прога

Program Maxl;
uses crt;
const n=18;
type mas=array[1..n] of integer;
var d,e,g:mas;j,m,p1,p2,p3:integer;

procedure pm(x:mas;p:integer);
var
  sum, i: integer;
begin
for i:=1 to n do  begin
x[i]:=random(15);   end;
p:=1;
for i:=1 to n do
if not odd(i) then
begin
p:=p*x[i];
write(x[i]:3);
end;
writeln('   proizv. элементов с чётными индексами: ',p);
end;


begin
clrscr;

writeln;
readln(m);
for j:=1 to m do
  begin
    pm(d,p1);  pm(e,p2); pm(g,p3);
    writeln( p1);
    writeln( p2);
    writeln( p3);
  end;
end.