программирование алгоритмов линейной структуры.

 uses 
  Math;  // Для использования математических функций 
 
var 
  a, x, y, part1, part2, part3, part4: Double; 
 
begin 
  a := 0.344; 
  x := 0.125; 
 
  // Вычисление части 1 
  part1 := x * Power(Ln(x), 1/3) * Sqrt(Abs(Power(x, 3) - a)); 
   
  // Вычисление части 2 
  part2 := Power(E, Power(Sin(x), 3)); 
   
  // Вычисление части 3 
  part3 := Abs(Ln(Abs(4.2 - x))); 
   
  // Вычисление части 4 
  part4 := 1 + a * Power(E, part3); 
 
  // Итоговое значение y 
  y := part1 + (part2 / part4); 
 
  // Вывод результата 
  writeln('y = ', y:0:6); 
end.