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.