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

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);
end.