Даны основание и высота равнобедренного треугольника. вычислить площадь и длины боковых сторон этого треугольника . в паскале abc

Var a,b,h,s: real;
begin
write ('Введите длину основания: '); read (b);
write ('Введите длину высоты: '); read (h);
s:=1/2*b*h;
a:=sqrt(sqr(b)/2);
writeln ('Площадь = ',s);
writeln ('Боковые стороны равны = ',a);
end.