program sasai;

uses crt;

const
    n = 15;
    m = 15;

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


procedure PrintArray();
begin
    for i := 1 to n do
    begin
        for j:= 1 to m do
        begin
            write(a[i, j]:4);
        end;
        writeln();
    end;
end;

begin
    randomize;
    for i := 1 to n do
    begin
        for j:= 1 to m do
        begin
            a[i, j] := random(50);
        end;
    end;

    writeln('Randomed array');
    PrintArray();
    writeln();

    for i := 1 to n do
    begin
        for j:= 1 to m do
        begin
            if a[i, j] mod 3 = 0 then
                a[i, j] := 1
            else
                a[i, j] := 0;
        end;
    end;

    writeln('Transformed array');
    PrintArray();
    writeln();

end.