Впаскале в 3 циклах: for; repeat; white. вычислить и напечатать значения функции и соответствующие им значения аргументов x, y. z=2xy-2yx при изменении первого аргумента x[-1; 1] с шагом 0.1 и второго аргумента y[2; 2] с шагом 0.2.

var x,y:real;begin write('x\y':8); y:=-2; while y<2.1 do begin write(y:8:4); y:=y+0.2; end; writeln; x:=-1; while x<1.1 do begin write(x:8:4); y:=-2; while y<2.1 do begin  write((2*x*y-2*x*y):8:4); y:=y+0.2; end; x:=x+0.1; writeln; end;end.