program prueba; const N=5; type vector = array[1..N] of integer; var a,b,c : vector; task suma(i,j:integer; var result:integer); begin result := i + j; end; begin parallel 1..N do begin a[name] := name div N; b[name] := name mod N; suma( a[name], b[name], c[name]); end; end.