Помогите составить программу для вычисления значения функции

Question

Помогите составить программу для вычисления значения функции

---

Answer 1

Program n1;
var y: real;
x: integer;
begin
write('введите x: ');
readln(x);
if x mod 2=0 then y:=x*x else y:=x*x*x;
writeln(y);
end.