program dangerousmath
!-----------------------------------------------------------------------------------------------
! Written by Jon Brito for Engineering 225 on Jan. 25 2012
! This is my time using the vi editor
!
!-----------------------------------------------------------------------------------------------
IMPLICIT NONE
real  :: 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