Procedures example - morning routine

Pseudocode

clean self
{
    have shower
    clean teeth
}


get dressed
{
    get dressed except footware
    put on shoes and socks
}


main
{
    clean self
    get dressed
}

Ada "program"

procedure morning_routine is

    procedure clean_self is
    begin
        have shower;
        clean teeth;
    end;

    procedure get_dressed is
    begin
        get dressed except footware;
        put on shoes and socks;
    end;

begin -- morning_routine
    clean_self;
    get_dressed;
end;