X Y действительны числа . Найти z=-2x^2+2xy
Program ddg2; var x, y: Real; begin WriteLn('введите x,y'); ReadLn(x, y); WriteLn('z=', - 2 * sqr(x) + 2 * x * y); end.