Составить блок схему алгоритма и программу для вычисления радиуса описанной окружности по формуле, вычисления производить с двойной точностью. pascal

Около какой фигуры описана окружность?

Блок-схема обычного линейного алгоритма, где блок начала, блок ввода данных (параллелограмм (для а)), блок решения (прямоугольник, куда вставляется формула) и вывод данных (тоже параллелограмм). Конец.

Вот простая программа на Паскале.

var r, a:double;

begin

writeln ('Вычисление радиуса описанной окружности около равностороннего треугольника R');

write ('Введите длину стороны треугольника а');

readln (a);

r:=exp(3*ln(a))/sqrt(3);

writeln ('R=',r);

end.