Садовник собрал со своего сада n (23856) кг урожая. Исходя из полученных данных, напишите программы для следующих заданий:Садовник собрал со своего сада n (23856) кг урожая. Исходя из полученных данных, напишите программы для следующих заданий:1) Выразите урожай садовода в тоннах, центнерах и килограммах;2) Если в каждый ящик помещается по 25 кг винограда, сколько потребуется ящиков?​ быстрее

Const
    n = 3;
    m = 3;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(20) - 10;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
                a[i, j] := sqr(a[i, j]);
            write(a[i, j]:4, ' ');
        end;
        writeln;
    end;
end.