PROGRAM operazioni
IMPLICIT NONE
REAL :: r1
REAL :: x,y,z,a,b,c,d,g,h,r

OPEN (10,file="variabili.txt",status="old")
READ (10,*) x,y,z,a,b,c,d,g,h,r 

WRITE (*,*)"I dati di input sono :“
WRITE (*,*)"x=",x
WRITE (*,*)"y=",y
WRITE (*,*)"z=",z
WRITE (*,*)"a=",a
WRITE (*,*)"b=",b
WRITE (*,*)"c=",c
WRITE (*,*)"d=",d
WRITE (*,*)"g=",g
WRITE (*,*)"h=",h
WRITE (*,*)"r=",r
WRITE (*,*) "La prima operazione e' : &
	& x+y/(z*a+b**2)" 
r1 = x+y/(z*a+b**2)
WRITE (*,*) "Il risultato della prima operazione e' :", r1

WRITE (*,*) "La seconda operazione e' : &
	& x=y/((a+b)**2+(3*c**2))**(a/b)“
x = y/((a+b)**2+(3*c**2))**(a/b) 
WRITE (*,*) "Il risultato della seconda operazione e' :", x

WRITE (*,*) "La terza operazione e' : &
	& y=(a*b/(c+d)-g/(5*(h+x)))**(1./r)" 
y = (a*b/(c+d)-g/(5*(h+x)))**(1./r)
WRITE (*,*) "Il risultato della terza operazione e' :", y

STOP
END