Помогите ,пожалуйста ,составить программу в Паскале + блок-схема.

//Я слабо себе представляю как выглядит блок-схема с подпрограммой, так что выкладываю два варианта//Pascal ABC.NET v3.1 сборка 1219Var s:real; i,j,d1,d2,r1,r2,k:integer;function Simple(d,r:integer):real;beginSimple:=sqr(d)*(r-1130)*9.8/(18*0.6);end;begin k:=0; read(d1,d2,r1,r2); for i:=d1 to d2 do  begin   for j:=r1 to r2 do    begin     s:=s+Simple(i,j);     inc(k);    end;  end;s:=s/k;writeln(s);end.Пример ввода:1524Пример вывода:-11249.1296296296