Даны основание и высота равнобедренного треугольника. вычислить площадь и длины боковых сторон этого треугольника . В ПАСКАЛЕ ABC

Предыдущий
вопрос Следующий
вопрос

var a,b,s,h: real;

begin

write ('введите длину основания');

read (b);

write ('введите длину высоты');

read (h);

s:=1/2*b*h;

a:=sqrt(sqr(b)/2);

writeln ('Площадь =',s);

writeln ('Боковые стороны равны =',a);

end.