Здравствуйте. Помогите пожалуйста решить первую задачу на 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 = dEnd FunctionSub 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 MEnd Sub