Program
Currency Convertor
INPUT: Currency type and currency value from user.
OUTPUT: Currency value and same as US dollar value

option := 0; value := 0; converted := 0; write(“Currency Convertor ”); rite(“1. Canadian dollars to US dollars”); write(“2. Mexican pesos to US dollars”); write(“3. English pounds to US dollars”); write(“4. Japanese yen to US dollars”); write(“5. French francs to US dollars”); write(“Enter the choice:”); read(option); write(“Enter the amount:”); read(value); if ( option := 1), then converted := value
(1/1.468)
else if (option := 2), then converted := value
(1/9.5085)
else if ( option := 3), then converted := value
(1.6433)
else if ( option := 4), then converted := value * (1/104.92) else if ( option := 5), then converted := value
(1/6.2561),
else

write(“Wrong Menu Selection”); write(“Entered Value:”,value); write(“US dollar equivalent:”,converted);

Other Format:
Module ()
Declare option = 0;
Declare value = 0;
Declare converted = 0;
Display(“currency convertor ”);
Display(“1. canadian dollars to us dollars”);
Display(“2. mexican pesos to us dollars”);
Display(“3. english pounds to us dollars”);
Display(“4. japanese yen to us dollars”);
Display(“5. french francs to us dollars”)
Display(“Enter the choice:”)
Get option;
Display(“Enter the amount:”)
Get value; if ( option := 1), then converted := value (1/1.468); else if (option := 2), then converted := value (1/9.5085) else if ( option := 3), then converted := value (1.6433) else if ( option := 4), then converted := value (1/104.92) else if ( option := 5), then converted := value (1/6.2561) else Display (“wrong menu selection”)
End If
Display (“entered value:” value);
Display (“us dollar equivalent:” converted)
END Main