Заполните ячейки А1, А2, А3 электронной таблицы любыми числами. Составьте программу на языке VBA, которая замениткаждое из этих чисел квадратным корнем из числа. Отрицательные числа замените текстом "преобразование невозможно".

Sub koren()For i = 1 To 3If Cells(i, 1) < 0 ThenCells(i, 1) = "Преобразование невозможно"ElseCells(i, 1) = Sqr(Cells(i, 1))End IfNext iEnd Sub