Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны.Как сделать это в excel в vba?

PROGRAM Solution(INPUT, OUTPUT);

VAR

 n1, n2, n3: INTEGER;

BEGIN

 WRITE('Введите 3 числа: ');

 READ(n1, n2, n3);

 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;

 WRITELN(n1);

 WRITELN(n2);

 WRITELN(n3);

END.