program DangerousMath
IMPLICIT NONE
integer, parameter :: dp=selected_real_kind(15)
integer :: n = 9
real (dp) :: a, b, x, I, K, mu, c
character (10) :: Name

a = 3
b = (n+3)/ 5
x = 5.75
I = 3.141959
K = x/ 2.0
mu = 1.0 / 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