Помогите, пожалуйста. Надо запрограммировать) ** любом языке

Question

Помогите, пожалуйста. Надо запрограммировать) На любом языке

---

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var x:=ReadReal;
if x<=0 then write(0) else if x>1 then write(x**4) else write(x);
end.