В Pascal ABC. Найдите радиус окружности если знаменита площадь окружности.

Площадь окружности: S = пи*R^2
Радиус окружности равен: R = квадратный корень из (S/пи), где S = площадь окружности, Пи неизменная величина = 3,14

uses crt;

const
pi=3.14;

var
R,S: real;

begin
writeln(Vvedite S: );
readln(S);
R:=sqrt(S/pi);
writeln(Radius = ,R);
end.