Здравствуйте. Помогите пожалуйста решить первую задачу на Visual Basic 6.0; вторую на Pascal ABC, Dev C++ и Visual Basic 6.0. Нужно очень срочно! Или хотя бы что-нибудь из этого. Даю 46 баллов.

первая часть, вторую не видно и не понятно что к чему function Power(a, n)     d = 1     for i = 1 to n         d = d * a     next     Power = d End Function Sub Zadanie17890266()     ro = 0     ro = InputBox("ro =")     M = 0     if ro >= 845 and ro < 924 then         M = (0.658 * Power(ro, 2) / (8.56 * Power(10, 5) - Power(ro, 2)))     elseif ro > 780 and ro < 845 then         M = (0.456 * Power(ro, 2) / (8.33 * Power(10, 5) - Power(ro, 2)))     end if     MsgBox M End Sub