programm 1; var z, x, n, y, m : real; begin writln("введите x"); read(x); writeln("введите y); read(y); writeln("введите n"); read(n); writeln("Введите m"); read(m); z:=x^n/y^m; writeln("z = ", z); end.