Вычислить X=m / (n-m), где m - сумма квадратов отрицательных элементов первого вектора, n - сумма квадратов отрицательных элементов второго вектора в паскале

Const k=10;

type arr=array[1 ... k] of integer;

procedure p1 (var x:arr) ;

var i:integer;

begin

for i:=1 to k do

begin

x[i]:=random (30) - 15;

write (x[i]:3) ;

end;

writeln;

end;

function f1 (var x:arr) : integer;

var i, s:integer;

begin

s:=0;

for i:=1 to k do

if x[i]<0 then s:=s+x[i]*x[i];

f1:=s;

end;

var a, b:arr; m, n:integer; x:real;

begin

writeln ('a:') ;

p1 (a) ;

writeln ('b:') ;

p1 (b) ;

m:=f1 (a) ;

n:=f1 (b) ;

writeln ('m = ', m,' n = ', n) ;

x:=m / (n-m) ;

writeln ('x = ', x:6:4) ;

end.

Пример:

a:

-13 7-11 11 - 3 4 13 3 - 1 2

b:

8 - 2 5 10 9 8 - 8 12 7-13

m = 300 n = 237

x = - 4.7619