var A:array [1..6,1..4] of integer; 
    i,j:integer;
    x,y,z:A;
    p,k:real;
    procedure WTF (e:A; var k,p:real);
    begin
    p:=0;
    k:=0;
         for i:=1 to 6 do begin
                          for j:=1 to 4 do begin
                                           A[i,j]:=random(102)-21;
                                           write(a[i,j]:3);
                                           if ((a[i,j]>=-10) and (a[i,j]<=9)) the begin
                                                                                  p:=p*A[i,j];
                                                                                  k:=k+1;
                                                                                  end;
                                           end;
                          writeln
                          end;
   writeln ('Произведение заданных чисел',p);
   writeln ('Количестве элементов в промежутке от -10 до 9',k);
           begin