How to Get File Extension in Ada - Code Snippet

-- Task: Get File Extension
-- Language: Ada

procedure get_file_extension() is begin
    -- Implementation for Get File Extension
    -- TODO: Implement core logic here
    -- Step 1: Prepare data
    -- Step 2: Process Get File Extension
    Put_Line("Done");
end;