var  x,y: real;

begin 
  x := -50; 
  while x <= 50 do  
  begin   
    y:=(x + 4) * (x + 4) * (x + 4) - Sin(x);   
    writeln('Значение y =(x+4)^3 -Sin(x) в точке x = ', x:3, ': ', y:0:5);   
    x := x + 5; 
  end;
end.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Range(-50,50,5).Tabulate(x->(x+4)*sqr(x+4)-sin(x)).Print(NewLine)
end.

Результат:
(-50,-97336.2623748537)
(-45,-68920.1490964755)
(-40,-46655.2548868395)
(-35,-29791.4281826695)
(-30,-17576.9880316241)
(-25,-9261.1323517501)
(-20,-4095.08705474927)
(-15,-1330.34971215984)
(-10,-216.544021110889)
(-5,-1.95892427466314)
(0,64)
(5,729.958924274663)
(10,2744.54402111089)
(15,6858.34971215984)
(20,13823.0870547493)
(25,24389.1323517501)
(30,39304.9880316241)
(35,59319.4281826695)
(40,85183.2548868395)
(45,117648.149096475)
(50,157464.262374854)