Написать программу в excel

[Pchelka1992]

Ребята помогите пожалуйста, программа написана, а как ее написать в excel.1.Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные.

uses crt;
var a,b,c:real;
begin
clrscr;
writeln('Введите 3 действительных числа:');
readln(a);
if a>=0 then a:=a*a else a:=sqr(sqr(a));
readln(b);
if b>=0 then b:=b*b else b:=sqr(sqr(b));
readln(c);
if c>=0 then c:=c*c else c:=sqr(sqr(c));
write('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);
readln
end.

[VIK_aka_TOR]

в ячейке А1 число
в ячейке B1 формула : =ЕСЛИ(A1>=0;A1^2;A1^4)
для большего числа переменных растягиваешь вниз формулу...)