Вычислите площадь кольца ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d. пример program a1; var a, b, c: integer; begin readln (a, b,c); if (a+b> c) and (a+c> b) and (b+c> a) then writeln ( "треугольник построить можно") else writeln ("треугольник построить нельзя"); end.

Var h,d,s: real; begin   write('ширина кольца h: '); readln(h);   write('отношение радиусов d: '); readln(d);   s: =pi*sqr(h)*(d+1)/(d-1);   writeln('площадь кольца: ',s: 7: 3); end.// h = r - r     r/r = d // h = r*(d-1) =>   r = h/(d-1) // r = (d*h)/(d-1) // s = pi*(sqr(r) - sqr(r)) = pi*sqr(h)*((sqr(d)-1)/(sqr(d-1)) // s = pi*sqr(h)*(d+1)/(d-1)ширина кольца h: 2 отношение радиусов d: 1.5 площадь кольца:   62.832