Фортран арифметические операции

[Julila]

       program lab1
implicit none
integer k
double precision x,y,s,t,r
print *, 'enter k,x,y'
read *, k,x,y
print *, 'k= ',k; 'x= ',x; 'y= ',y
s=3**k+2**(k+1)
r=0.284*10**5*EXP((-s)+2)+((y**2+1)**2)**(1./5.)
t=ALOG(ABS(SIN(x)**2))+(1+TAN(y))/((r+1)*SQRT(y));
     
print * 'r= ',r 't= ',t 
end

помогите пожалуйста исправить ошибки.. не могу понять, что нужно исправить

[vova_]

program lab1
implicit none
integer k
double precision x,y,s,t,r
print *, 'enter k,x,y'
read (*,*) k,x,y
print *, 'k= ',k; 'x= ',x; 'y= ',y
s=3**k+2**(k+1)
r=0.284*10**5*EXP((-s)+2)+((y**2+1)**2)**(1./5.)
t=ALOG(ABS(SIN(x)**2))+(1+TAN(y))/((r+1)*SQRT(y));

print *, 'r= ',r 't= ',t
end