program DangerousMath
implicit none
integer, parameter :: dp = selected_real_kind(15)
real(dp) :: A, B, x, mu, c
integer:: I, K, n = 9
character (10) :: Name
a=3
b=(n+3)/5
x=5.75
I=3.141959
k=x/2.0
mu=1./5.75
write (*,*) "Please enter your name."
read (*,*) Name
write (*,*) "Hello", Name
write (*,*)a,b,x,I,k,mu
write (*,*) "Enter a value for A and B."
read (*,*) A, B
c = ((A +B)**2 - 2*a*b - B**2)/A**2
write (*,*) c
stop
end program DangerousMath