program dangerousmath
implicit none
integer, parameter :: dp=selected_real_kind(15)
real :: a, b, x, c
integer:: i, k, n = 9, mu
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
stop
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