program tarea
implicit none
integer, parameter::n=10
real, parameter::pi=3.14159265
real, dimension(n)::L,T,x,y
integer::i
real::a,b,g,r
real::sx,sy,sxx,sxy,syy
real, dimension(n)::xx,xy,yy

L=(/0.150,0.160,0.170,0.180,0.190,0.200,0.210,0.220,0.230,0.240/)
T=[0.777,0.802,0.830,0.849,0.897,0.918,0.941,0.963,0.985,0.985]

x=L
y=T*T
xx=x*x
xy=x*y
yy=y*y
sx=sum(x)
sy=sum(y)
sxx=sum(xx)
sxy=sum(xy)
syy=sum(yy)

b=(sx*sy-real(n)*sxy)/(sx*sx-real(n)*sxx)
a=(sy-b*sx)/real(n)

g=(4.0*pi*pi)/b
r=(real(n)*sxy-sx*sy)/sqrt((real(n)*sxx-sx*sx)*(real(n)*syy-sy*sy))

write(*,*)"a=",a,"b=",b
write(*,*)"g=",g,"r=",r

end program tarea