Program Ecua_linales2X2
implicit none
real*4 x,y,a1,b1,a2,b2,c1,c2
write(*,*)'***********Resolución de Ecuaciones lineales 2x2**************'
write(*,*)''
write(*,*)'Este programa resuelve un sistema de ecuaciones de la forma'
write(*,*)'a1*X+b1*Y=c1'
write(*,*)'a2*X+b2*Y=c2'
write(*,*)'Constituye un primer inicio en el aprendizaje de Fortran'
write(*,*)'Escribe las constantes,a1,b1,c1,a2,b2,c2 En ese orden'
read(*,*)a1,b1,c1,a2,b2,c2
if (a1==a2 .and. b1==b2) then
write(*,*)'Son lineas paralelas'
else
x=(c1*b2-c2*b1)/(a1*b2-a2*b1)
y=(a1*c2-a2*c1)/(a1*b2-a2*b1)
write(*,*)'Las soluciones son:','X=',x,'Y=',y
end if

end program