Вычислить значение выражения - Turbo Pascal (29025)

Формулировка задачи:

Даны действительные числа a0, a1, a2, a3. Получить для х = 1, 3, 4 значения р(х+1) - р(х), где р(у) = a3y3 + a2y2 + a1y + a0. Определить функцию р(у).

Решение задачи: «Вычислить значение выражения»

textual
                            Листинг программы 
                        

                            {Даны действительные числа a0, a1, a2, a3}
const
  a0 = 3.34;
  a1 = -2.18;
  a2 = -0.01;
  a3 = 10.05;
  
var
  x : integer;
  
{Определить функцию р(у)}
function p(y : real) : real;
begin
  p := a3 * y * y * y + a2 * y * y + a1 * y + a0  
end;
 
begin
  x := 1;
  {Получить для х = 1, 3, 4 значения р(х+1) - р(х)}
  for x := 1 to 4 do  
    writeln('x = ', x, '. p(', x, '+1) - p(', x, ') = ', (p(x+1) - p(x)):0:4);  
  readln
end.
                        