Задача с массивами

[Artem04]

интересно , как решить:
преобразовать вводимый массив А,состоящий из 20 действительных чисел , в массив В следующим образом

b(i)=5 ln a(i) ,если a(i)>0
b(i)=0, если a(i)<0

условия выполняются одновременно

на печать выдать массив В

[__STDC__]

мда..

for i:=1 to 20 do
   if (a[i] > 0) then b[i] := 5*ln(a[i])
   else if (a[i] < 0) then b[i] := 0;

[Artem04]

спасиб!щас проверю.