Answer:
procedure exp()
term()
if (token == β+β)
{
match(β+β)
term()
}
Else (if token == β-β)
{
match(β-β)
term()
}
else
errorsfound
procedure term()
factor()
if (token == β*β)
{
match(β*β)
factor()
}
else if (token == β/β)
{
match(β/β)
factor()
}
else
errorsfound
procedure factor()
if (token == β(β)
{
match(β(β)
exp()
match(β)β)
}
else
digit()
procedure digit()
if token == β0β
match(β0β)
else if token == β1β
match(β1β)
else (if token == β2β)
match(β2β)
else if (token ==β3β)
match(β3β)
else
errorfound
match(t)
if (token == t)
nexttokenpointer
else
errorfound
Explanation: