[Pavluha]

всё вы правильно поняли. было бы очень хорошо, чтобы распараллелизация приблизитель выглядела так:

Код:

program prog;
uses paralell_mod;
var i:integer;
a,b:array[1..100000]of integer;

function myfunc(x,y:integer):integer;
begin
 myfunc:=x*y;
end;
begin
for i:=1 to 100000 do begin a[i]:=random(100); b[i]:=random(1000) end;

for i:=1 to 100000 do
 parallel(myfunc,a,b);
end.