Составить программу, которая находит боковую сторону (b) в равнобедренном треугольнике, если известна площадь (s) и основание (a)

uses crt;

uses crt;

var h, a, b, c : real;

begin writeln ('Введите значение высоты h');

readln (h); c:=2*h;

a:=sqrt (2*h*h);

b:=a;

writeln ('Стороны треугольника равны a = ', a:3:3,' b = ', b:3:3,' c = ', c:3:3);

end.