program a1;
uses graph, crt;
const
n=9;
Type
Ar=Array[1..n] of real;
const
Q:Ar=(14.0, 20.5, 35.3, 45.0, 53.8, 62.0, 68.3, 75.2, 82.0);
H:Ar=(3.05, 4.90, 10.4, 15.3, 20.1, 25.4, 29.8, 34.6, 40.0);
var
Hp,dH,x,y:Ar;
i,grDriver,grMode:integer;
a,b,dH_min,dH_max:real;
s:String;
procedure...