Составить похожую программу пожалуйста срочно 35 баллов​

Question

Составить похожую программу пожалуйста срочно 35 баллов​

---

Answer 1

Ответ:

Очень сложноооооооооооооо

Answer 2

Ответ:

Код ниже

Объяснение:

program somethingLikeThat;

var a, b: integer;

begin

  read(a);

  if a >= 1 then b := sqr(a)*sqr(a)

  else b := 1 - a;

  write(b);

end.