Очень сложн
Код ниже
Объяснение:
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.
