暇な人がエレガントにC/C++の宿題片づけます 33代目

FORTRAN70です。お願いします。

ある数xとyのそれぞれの約数とxとyの最大公約数、そして最小公倍数を計算しなさい。

ただし、関数副プログラムまたはサブルーチン副プログラムのどちらかを用いること。