Помогите по поскалю, ПОЖАЛУЙСТА!11
Дана площадь круга S. Найти длину окружности, учитывая что L=2*pi*R,    S=pi*R

а можно другой вариант?:с А то такому точно не поверят:((

а R где?:D

подставили S в 1 формулу

переделал как надо

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.