Пожалуйста помогите решить задачу по ИКТ. Безотлагательно!!! 39. Составьте программу вычисления

Можно ещё решение, не программой, а задачей

Площадь треугольника - s = a*h/2
a = 3*h  s = 3*h*h/2  h = (2*s/3)
Искомая боковая сторона треугольника - это гипотенуза треугольника со гранями a/2 (=3*h/2)  и h  b^2 = (3*h/2)^2+h^2

var s,b,h:real;
begin
readln(s);
h:=sqrt(2*s/3); //s:=3*h*h/2
b:=sqrt(13)*h/2; // b^2 =(3*h/2)^2+h^2
writeln('a = ',3*h:5:2,' h = ',h:5:2);
writeln('b = ',b:5:2);
end.

Пример:
16
a = 9.80 h = 3.27
b = 5.89

На PascalABC.
(20 знаков аиыоалокуаикуцлокиуцоауц)