<const ON : string := "ON"
const OFF : string := "OFF"
var LED_red : string
var option : int

% initialize all three LEDs as ON at the beginning
LED_red := ON

% declare a procedure for menu so that it can be re-used whenever needed
procedure menu
    cls
    % display the status of 3 LEDs and the main menu
    put "RED:" : 8, LED_red
 
    put skip
    put "1.  Turn on a LED"
    put "2.  Turn off a LED"
    put "3.  Make LED flash 10 times"
    put "4.  Choese how many times LED flashes "
   
    put skip
    put skip
    put "Please enter your option:"
end menu
loop
    menu
    get option
    delay (3000)
    % if the user choose option 1
    if option = 1 then
       
            if  LED_red = OFF then
                LED_red := ON
       
            else
                put "The LED is already on."
                delay (3000)
            end if
       
        % if the user choose option 2
    elsif option = 2 then
       
           
            if LED_red = ON then
                LED_red := OFF
           
            else
                put "The LED is already off."
                delay (3000)
            end if
     
        % if the user choose option 3
    elsif option = 3 thene>