Даны действительные числа 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.