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