3.20

Program task320;


Var
    m: array[1..3, 1..3] of Integer = (
        (1, 2, 3),
        (0, 0, 0),
        (-1, 0, 5)
    );
    i, j: Integer;
    flag: Boolean;

Begin
    Writeln('Matrix:');
    for i := 1 to length(m) do begin
        for j := 1 to length(m) do begin
            Write(m[i,j], ' ');
        end;
        Writeln('');
    end;
    Writeln('');

    Write('Answer: ');
    for i := 1 to length(m) do begin
        flag := True;
        for j := 1 to length(m) do begin
            if m[i,j] <> 0 then begin
                flag := False;
                break;
            end;
        end;
        if flag = True then
            Write(i, ' ');
    end;
    Writeln('');

    ReadLn;
End.