求出100以内的所有勾股数组 (pascal,C,Logo语言均可)