В 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.