Giải thuật định giá biểu thức hậu tố

program Dinh_gia;
BEGIN
    Repeat
        Đọc phần tử X tiếp theo của biểu thức;
        if (X là toán hạng) then
            PUSH(S,T,X)
        else
            begin
                Y:=POP(S,T);
                Z:=POP(S,T);
                Thực hiện phép toán X với các toán hạng Y và Z
                gán kết quả cho W;
                PUSH(S,T,W);
            End;
    until (Đọc hết xâu biểu thức);
    R:=POP(S,T);
    write(R);
END.