ИКТ помогите!!! решение должно быть ** Паскале

Question

ИКТ помогите!!! решение должно быть на Паскале

---

Answer 1

2.
var x:real;
begin
read (x);
if (x>0) then writeln (x-2);
if (x=0) then writeln (10);
if (x<0) then writeln (x*x*x);<br>end.