Дан числовой двумерный массив A(N,N). Найти произведение целых отрицательных элементов главной диагонали

var
a: array [1..100,1..100] of integer;
i, j,  n , dob : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(90)-45 ;
write(a[i,j]:3);
end;
writeln;
end;
dob:=1 ;
for i:=1 to n do begin 
for j:=1 to n do begin
if a[i,j]<0 then dob:=dob*a[i,j] ;
end;
end;
writeln(dob);
end.

var
    a : Array[1..100, 1..100] Of Real;
    i, j, n : Byte;
    mult : Double = 1;
    count : Byte = 0;
begin
    Randomize;
    Write('N='); ReadLn(n);
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            a[i, j] := (Random(101) - 50) / (Random(3) + 1) ;
            Write(a[i, j]:7:1);
            if ((Frac(a[i, j]) = 0) And (i = j) And (a[i, j] < 0)) then
            begin
                mult := mult * a[i, j];
                Inc(count);
            end;
        end;
        WriteLn;
    end;
    WriteLn('mult=', mult:0:2);
end.

var
    a : Array[1..100, 1..100] Of Real;
    i, j, n : Byte;
    mult : Double = 1;
    count : Byte = 0;
begin
    Randomize;
    Write('N='); ReadLn(n);
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            a[i, j] := (Random(101) - 50) / (Random(3) + 1) ;
            Write(a[i, j]:7:1);
            if ((Frac(a[i, j]) = 0) And (i = j) And (a[i, j] < 0)) then
            begin
                mult := mult * a[i, j];
                Inc(count);
            end;
        end;
        WriteLn;
    end;
    if (count <> 0) then
        WriteLn('mult=', mult:0:2)
    else
        WriteLn('No one!');
end.

var
    a : Array[1..100, 1..100] Of Real;
    i, j, n : Byte;
    mult : Double = 1;
    count : Byte = 0;
begin
    Write('N='); ReadLn(n);
    for i := 1 to n do
        for j := 1 to n do
        begin
            ReadLn(a[i, j];
            if ((Frac(a[i, j]) = 0) And (i = j) And (a[i, j] < 0)) then
            begin
                mult := mult * a[i, j];
                Inc(count);
            end;
        end;
    if (count <> 0) then
        WriteLn('mult=', mult:0:2)
    else
        WriteLn('No one!');
end.