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

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