Розв’язок задачі з Абрамова №29

Всі умови | Умова: Дано дійсні числа х, у. Не користуючись ніякими операціями, крім множення, додавання і віднімання, обчислити 3x 2 y 2 − 2 xy 2 − 7 x 2 y − 4 y 2 + 15 xy + 2 x 2 − 3x + 10 y + 6. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №29)

program Pr29;
var x, y, r : real;
begin
   readln(x, y);
   r := (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('r = ', r:3:2);
   readln;
end.