Program z4; Type Arr=array[1. . 255] of integer; Var A,b:arr; M,v,n:byte;Procedure sa(x, y: arr; z:byte; var c:array[1. . 255] of real); Var i, j, K :byte; begin x[i]:=x[1]; y[j]:=y[1]; for k:=1 to z do begin c[k]:=(X[i]+y[j])/2; x[i]:=x[i+1]; y[j]:=y[j+1]; write (' ',c[k]); end; end;beginrandomize;write('введите N'); read(n); for M:=1 to n do begin A[m]:=random (90)-43; Write (' ',a[m]); End; writeln;for v:=1 to n do begin B[v]:=random (87)-36; Write (' ',b[v]); End; sa (a, b, n);End. что не так, ​составить блок схему