33. Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные. Написать в VBA и Дельфе

Можешь обратится ко мне на страницу вк - id158200337

Держи VBA-версию в Excel 2003.Delphi у меня 7-й версии. будет чем проект открыть? Код модуля в файле Unit1.pas.P.S. Что-то zip не грузится, код  - ниже:procedure TForm1.Button1Click(Sender: TObject);var N1, N2, N3: Real;begin //Проверок на введённе значения для простоты не делаю N1:=StrToFloat(Edit1.Text); N2:=StrToFloat(Edit2.Text); N3:=StrToFloat(Edit3.Text); if N1<0 then N1:=N1*N1*N1*N1 else N1:=N1*N1; if N2<0 then N2:=N2*N2*N2*N2 else N2:=N2*N2; if N3<0 then N3:=N3*N3*N3*N3 else N3:=N3*N3; Edit4.Text:=FloatToStr(N1); Edit5.Text:=FloatToStr(N2); Edit6.Text:=FloatToStr(N3);end;