Помогите пожалуйста сделать домашнее задание в паскале, экселе и блок-схему! (задание для продвинутых пользователей)

(более подробно на фото л.р.9)
Диаметр горловины водоструйного элеватора в системах водяного отопления вычисляют по формуле d=1,55G^0,5/P^0,25 (см). Здесь G-расход теплоносителя в системе отопления после элеваторного узла, который определяется по формуле G=0,86*10^(-3)*(Q/(t1-t0), т/ч; Q-мощность отопительной установки здания, Вт, принять от 100000Вт до 300000вт с шагом 20000вт, t1-температура в падающей магистрали системы отопления, применять 105; t0-температура в обратной магистрали системы отопления, принять 70; P-расчетное давление в системе отопления для циркуляции теплоносителя, кПа, принять Р=12кПа. Определение записать в виде функции.

function d(P, Q, t, t0: real): real;var  G: real;begin  G := 0.86e-3 * Q / (t - t0);  d := 1.55 * sqrt(G) / sqrt(sqrt(P))end;var  Q, t, t0, P, q1, q2, h: real;begin  q1 := 1e5; q2 := 3e5; h := 2e4;  t := 105; t0 := 70; P := 12;  Q := q1;  while Q <= q2 do  begin    Writeln('Qзд=', Q:0:0, ', d:=', d(P, Q, t, t0):0:3);    Q := Q + h  endend.Тестовое решение:Qзд=100000, d:=1.305Qзд=120000, d:=1.430Qзд=140000, d:=1.545Qзд=160000, d:=1.651Qзд=180000, d:=1.751Qзд=200000, d:=1.846Qзд=220000, d:=1.936Qзд=240000, d:=2.022Qзд=260000, d:=2.105Qзд=280000, d:=2.184Qзд=300000, d:=2.261