Составьте программу в системе паскаль №11

Var x,y:real;
begin
  readln(x);
   if x>3 then y:=-3*x+9 
   else y:=x*x*x/(x*x+8);
   write(y);
end.

//Pascal ABC.NET v3.1 сборка 1172

Var
 x:real;
begin
 readln(x);
 if x>3 then writeln(-3*x+9) else writeln(power(x,3)/(sqr(x)+8));
end.

Пример ввода:
4
Пример вывода:
-3