syntax flexibility (programming) of xcas on HP-Prime

[compsystems]

Another example for IF-THEN-ELSE-END

PHP Code:

function AgeVote( )
begin 
    local Age; 
    assume( Age, integer );

    DispG; ClrIO; ClrGraph; 

    printf( "How old are you?" );
    input( Age );

    if Age ≥ 18 then
        printf(  "Go vote!" );
    else
        printf( "Sorry, not yet" );
    end_if

    return Done;

end:;

AgeVote( ) :=
{ 

    local Age; 
    assume( Age, integer );

    DispG; ClrIO; ClrGraph; 

    printf( "How old are you?" );
    input( Age );

    if (Age>=18) printf("Go vote!");   
    else printf("Sorry, not yet");  

    return Done;

}:;


AgeVote( ) :=
{ 
    local Age; 
    assume( Age, integer );

    DispG; ClrIO; ClrGraph; 

    printf( "How old are you?" );
    input( Age );

    if (Age >= 18) 
    {
        printf(  "Go vote!" );
    }
    else
    {
        printf( "Sorry, not yet" );
    }
    
    return Done;
}:;


function AgeVote1( )
begin 
    local Age; 
    assume( Age, integer );

    DispG; ClrIO; ClrGraph; 

    printf( "How old are you?" );
    input( Age );

    if (Age >= 18) 
        begin
            printf(  "Go vote!" );
        end  
    else
        begin
            printf( "Sorry, not yet" );
        end

    return Done;

end