Function pow(m: double; n: integer): double;
var
i: integer;
p: double;
begin
p := 1;
for i := 1 to abs(n) do p := p * m;
if n < 0 then p := 1 / p;
pow := p
end;
var
d, z, m, y: double;
q, a, b: integer;
begin
Writeln('Введите значения a,b,d,m,q,z:');
Readln(a, b, d, m, q, z);
y := (pow(d, q) + pow(z, a)) / pow(m, b);
Writeln('y=', y)
end.
Тестовое решение примера:
Введите значения a,b,d,m,q,z:
5 -3 1.78 -4.3 2 3.11
y=-23383.5972310962