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

Помогите пожалуйста,написать решение, не понимаю как пишутся формулы.Заранее очень благодарна 1.Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные.Код Pascaluses crt;var a,b,c:real;beginclrscr;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);readlnend.