Вpascal abc. найдите радиус окружности если известна площадь окружности.

var
  s:real;
begin
  Write('Площадь окружности: '); Read(s);
  Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.