Заполните пропуски так чтобы программа решала поставленную задачу ​

Var

L:real;    // длинна окружности

Readln(S);

R:=     sqrt   (S/pi);

L: = 2    R    pi;

Writeln('', L );