Составить программу для решения . найти значения функции.

PascalABC.NET

begin

 var (a, x) := ReadReal2('Введите a и x:');

 var y: real;

 if x < 1.4 then

   y := Pi * x * x - 7 / (x * x)

 else if x = 1.4 then

   y := a * x ** 3 + 7 * Sqrt(x)

 else

   y := Ln(x + 7 * Sqrt(Abs(x + a)));

 Print(y)  

end.