Помогите решить задачу в паскаль

 program TabulateFunction; 
 
var 
  a, b, h, x, y: Real; 
 
begin 
  // Вводим значения a, b и h 
  Write('Введите значение a: '); 
  ReadLn(a); 
  Write('Введите значение b: '); 
  ReadLn(b); 
  Write('Введите значение шага h: '); 
  ReadLn(h); 
 
  // Заголовок таблицы 
  WriteLn('   x    |      y'); 
  WriteLn('-----------------'); 
 
  // Цикл для табуляции функции 
  x := a; 
  while x <= b do 
  begin 
    y := 2 * x * x * x - x * x - cos(x); 
    WriteLn(x:8:3, ' | ', y:8:3); 
    x := x + h; 
  end; 
end.