Пожалуйста посчитайте с Паскалем. Cоставьте программу нахождения площади кольца заключенного между двумя окружностями с радиусами R1 и R2, если R1>R2.

S = π(R₁²-R₂²)




begin
  var (r1,r2):=ReadReal2('Радиусы наружной и внутренней окружностей:');
  Writeln('S=',Pi*(r1*r1-r2*r2):0:5)
end.


Радиусы наружной и внутренней окружностей: 10.6 6.18
S=233.00439