var x,y,a,b,c,s:real;
begin
clrscr;
writeln('Введите 2 действительных числа:');
readln(x,y);
c:=x*y;
s:=c*(3*c-2*y-7*x+15)+y*(10-4*y)+x*(2*x-3)+6;
writeln(s);
end.
var x,y,a,b,c,s:real;
begin
clrscr;
writeln('Введите 2 действительных числа:');
readln(x,y);
c:=x*y;
s:=c*(3*c-2*y-7*x+15)+y*(10-4*y)+x*(2*x-3)+6;
writeln(s);
end.