Задать площадь круга случайным образом (от 10 до 20). найти его диаметр d и длину окружности l, ограничивающей этот круг, учитывая, что l= пи2r; s= пиr^2 использовать пи=3.14

Var D,L,R,S:real;
Const Pi=3.14;
Begin
  randomize();
  S:=random(11)+10;
  R:=sqrt( S/Pi );
  L:=Pi*2*R;
  D:=L/Pi;
  Writeln('L = ',L);
  Writeln('D = ',D)
End.