repeat with n=1 to the number of lines in cd fld "data"
  put the line n of cd fld "data" into aLine
  if (word 5 of aLine) > 0
     then
       put (word 3 of aLine)*(word 4 of aLine) into kotsuHi
       put (word 2 of aLine)*(word 5 of aLine)+kotsuHi into shikyuGaku
       put aLine&&kotsuHi&"  "&shikyuGaku&&return after cd fld "result"
  end if
end repeat