Две задачи на фортране.

[Arastor]

Добрый день, нужна помощь в решение задач на фортране. Попытка к решению сделана была, но что-то не пошло, задачи по меркам знающих возможно лёгкие, но я учусь не на программиста), а посему прощу помощи.
Cобственно задачи по ссылке http://s56.radikal.ru/i153/1206/7c/63a06d61457b.jpg
а тут попытки решения: №3

program zadanie3 
 
REAL x,d,c,f,P 
 
d = 2.31 
c = 0.84 
x = 0.65 
10if (x .ge. 0.10) then 
f = exp(d/2)*Alog((x**2 + 1.09*10**4*x +c)**(1./3.)) 
print *,'x=',x,' f=',f 
x = x-0.05 
goto 10 
endif 
20end program zadanie3 
stop

Задание №4

program zadanie4 
 
integer i,k(-4:5) 
real*8 b,c,d,x(-4:5),f(-4:5),v 
print *, 'vvedite b,c,d' 
read *,b,c,d 
!b=7.83 
!c=1.69 
!d=0.77 
do i=-4,5 
k(i)=i 
x(i)=d+0.03*k(i) 
f(i)=c*(cos(b)**(5./3.))*x(i) + Log10((2.43*x(i))/(10**12)) 
end do 
print 10,K,X,F 
10format(20X,'Tablica znachenii f(x)'/ 
*2X,'k',4X,10(3X,I1,3X))/ 
*2X,'x',4X,10(3X,F5.2,3X)/ 
*1X,'f',2X,10(1X,F5.2,1X)) 
end program zadanie4 
stop

[s-andriano]

Соответствие вычислений заданию не проверял, но цикл в Фортране обычно организуют так:

...
x = 0.65 
10 f = exp(d/2)*Alog((x**2 + 1.09*10**4*x +c)**(1./3.)) 
print *,'x=',x,' f=',f 
x = x-0.05 
if (x .ge. 0.10) goto 10 
stop 
end program zadanie3

Да, еще "end" располагают после последнего исполняемого оператора, а "stop" относится к таковым.