code 31011;
    procedure INIMAT(LR, UR, LC, UC, A, X); value LR,UR,LC,UC,X;
    integer LR,UR,LC,UC; real X; array A;
    begin integer J;

        for LR:= LR step 1 until UR do 
        for J:= LC step 1 until UC do A[LR, J]:= X
    end INIMAT;
        eop