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.
