Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

я так понимаю надо написать Паскале

1uses crt;

2var a,b,c:real;

3            i:byte;

4 begin

5clrscr;

6writeln(Введите 3 действительных числа:);

7readln(a);

8if a>=0 then a:=a*a else a:=sqr(sqr(a));

9 readln(b);

10if b>=0 then b:=b*b else b:=sqr(sqr(b));

11readln(c);

12if c>=0 then c:=c*c else c:=sqr(sqr(c));

13write(a=,a:0:2, b=,b:0:2, c=,c:0:2);

14readln

15end.