написать код программы на языке паскаль(фото выше) Пожалуйста посчитайте очень надо ​

program Hello;

var x : integer;

begin

 write ('Введите x: ');

 readln(x);

 if x > 3 then

 writeln(': ', -3 * x + 9)

 else  

 writeln(': ', (x*x*x)/((x*x) + 8));

end.