Даны действительные числа x, y. Не пользуясь никакими другими арифметическими операциями, кроме умножения, сложения и вычитания, вычислить:

Var x, y, res : real;

begin

{Задаем значения х и у}

write ('Введите x и y через пробел: ');

readln (x, y);

{Вычисляем значение выражения и присваиваем результат переменной res}

res : = 3*x*x*y*y - 2*x*y*y - 7*x*x*y - 4*y*y + 15*x*y + 2*x*x - 3*x + 10*y + 6;

{Выводим результат на экран}

writeln ('Ответ: ', res:6:4);

readln;

end.