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