begin
var (x, y) := ReadReal2('Введите x и y:');
var z := (7 * x / x ** 3 + 1) - x * x * y;
Print(z)
end.