! ! Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвёртую степень – от

Помогите пожалуйста!! СРОЧНО!

 

Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвёртую степень – отрицательные.

 

Нужно написать для Basic!

    begin

     write (a,' ',b,' ',c);

    else a:=a*a;

    if b<0

    Вроде так затестируй на паскале у меня нет но суть такова вроде должна работать

    if a<0

    if c<0

    else c:=c*c;

    then c:=c*c*c*c

    then b:=b*b*b*b

     read(a,b,c);

    then a:=a*a*a*a

    end.

  • var a,b,c:integer;

    else b:=b*b;