Following is the same example in Ada.
以下はAdaにおける同じ例である。