code 31013;
    procedure INISYMD(LR, UR, SHIFT, A, X); value LR,UR,SHIFT,X;
    integer LR,UR,SHIFT; real X; array A;
    begin SHIFT:= ABS(SHIFT); UR:= UR + SHIFT + 1; SHIFT:=LR + SHIFT;
        LR := (SHIFT - 3) * SHIFT // 2 + LR;
        for LR := SHIFT + LR while SHIFT < UR do 
        begin A[LR]:= X; SHIFT:= SHIFT + 1 end 
    end INISYMD;
        eop