Первое помогите, пожалуйста!)

Question

Первое помогите, пожалуйста!)

---

Answer 1

Программа на Паскале
Program BiFi;
Var x:real;
Begin
readln(x);
if (x<=0) then writeln('0')<br>             else if (x>0) and (x<=1) then writeln(x)<br>                                                else writeln(x*x*x*x);
readln;
end.