Program Finite_Element
integer :: m,n,s,temp
write(*,*)"请输入两个数:"
read(*,*)m,n
s=m*n
if(m<n)then
  temp=m;m=n;n=temp
end if
do while(mod(m,n)/=0)
  temp=n;n=mod(m,n);m=temp
end do
write(*,"('最大公约数为：'i4)") n
write(*,"('最小公倍数为：'i4)") s/n
end