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