Составить программу, которая находит боковую сторону(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.