program buscar errores

integer :: i,j,i_i

i=0.d0
j=1

real,parameter :: pi=3.1415926535
real*8 :: x,y,X,z

y = 3
z = 1.7d0

X = y*i

k = y*z

write(*,*) 'el valor de X es ', x
write(*,*) 'Pi con 10 cifras decimales vale: ', pi 

end program