По поскалю, ! 11 дана площадь круга s. найти длину окружности, учитывая что l=2*pi*r, s=pi*r

var a :real;
begin
   read (a);
   a:=a/3.14;
   a:=sqrt(a);
   writeln (a*3.14*2);
end.
// S=pi*R*R;

Var s,l,r: real; 
 begin  write('Введите площадь круга S: '); 
 readln(s);
  r:=sqrt(s/Pi);
  l:=2*Pi*r; 
 writeln('Длина окружности равна ',l);
end.