IspisiPuteve

PROCEDURE IspisiPuteve (s:stablo;niz:ARRAY OF INTEGER;n:INTEGER);
VAR i:INTEGER;
BEGIN
    IF s#NIL THEN

        IF (s^.levo=NIL) AND (s^.desno=NIL) THEN
            niz[n] := s^.id;
            FOR i:= 0 TO n DO
                WriteInt(niz[i],0);
            END;
            WriteLn;
        ELSE
            niz[n] := s^.id;
            IspisiPuteve(s^.levo, niz, n+1);
            IspisiPuteve(s^.desno,niz, n+1);
        END;
    END;
END IspisiPuteve;