program calculate
    implicit none
    real :: X1, X2, s1, s2, s3, s4, s5

    READ *, X1, X2
    s1 = X1 + X2
    s2 = X1 - X2
    s3 = X1 * X2
    s4 = X1 / X2
    s5 = X1 ** X2
    PRINT *, '两数之和为', s1
    PRINT *, '两数之差为', s2
    PRINT *, '两数之积为', s3
    PRINT *, '两数之商为', s4
    PRINT *, '两数之幂为', s5
end program calculate