PASCAL. найти сторону равностороннего треугольника если извества площадь. составить блок схему алгоритма

Question

Иван · Accepted Answer

Ответ: 
program storona; 
uses crt; 
var s,a:real; 
begin 
writeln('Введите площадь равностороннего треугольника: '); 
readln(s); 
a:=sqrt(4/sqrt(3)*s); 
writeln('Сторона равностороннего треугольника = ',a:0:8); 
readln; 
end.