Вычислить значение функции. Выполнить вывод значений вводимых начальных данных и результат

program TabulW;

var

 a, b, c, x, dx, w: real;

begin

 a := 2.8;

 b := -0.3;

 c := 4.0;

 x := 1.0;

 dx := 0.05;

 Writeln('   a       b       c       x       w');

 while x - 2 lt; 0.0001 do

 begin

   if x lt; 1.2 then

     w := a * x * x + b * x + c

   else if x gt; 1.2 then

     w := (a + b * x) / sqrt(x * x + 1)

   else

     w := a / x + sqrt(x * x + 1);

   Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);

   x += dx

 end;

 Readln;

end.