level 11

\[Rho] = 1000, g = 9.8, h2 = 1.2, h1 = 0.5, v = 4*10^-4, s =0.1^2*Pi, p0 = 1.01*10^5, dh = 0.00001;
S = DSolve[{\[Rho] g h2 - \[CapitalDelta]p1 -
p0 (v - x2[t] s + x1[t] s)/v == \[Rho] dh x2''[t] &&
p0 (v - x2[t] s + x1[t] s)/
v - \[Rho] g h .1 - \[CapitalDelta]p2 == \[Rho] dh x1''[t],
x1[0] == 0, x2[0] == 0}, x1[t], x2[t], t]
Clear["Global`*"];

