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