Вычислить параметр треугольника АВС в паскале.

[Freeman_DR]

У меня задача. Даны стороны треугольника A,B,C .Вычислить параметр треугольника Высота на сторону А . на бумагея эту задачу вроде как решил скан решения внизу во вложение. но реализовать в паскале не очень получается.
вот то что у меня получилось написать в паскале но в итоге ответ выходит неправильный

Program Visota;
Uses crt;
var
a,b,c,h,m,k:real;
begin
ClrScr;
 begin
   write ('ВВедите число А ' );
   readln (a);
   write ('Введите число В ' );
   readln (b);
   write ('Введите число С ' );
   readln (c);

k:=((sqr(b)+sqr(a)-sqr(c)))/(2*a*b);

writeln (k);
end;


begin;

m:=b*k;

writeln (m);

end;
begin
h:=sqrt(sqr(b))+(sqr(m));
writeln (h);
end;
readln;

end.

[puporev]

h:=sqrt(sqr(b))+(sqr(m));

С какой стати у Вас катет больше гипотенузы? Кстати на картинке тоже. Ведь просто на глаз видно что надо не складывать, а вычитать.

[Freeman_DR]

Сообщение от puporev

С какой стати у Вас катет больше гипотенузы? Кстати на картинке тоже. Ведь просто на глаз видно что надо не складывать, а вычитать.

спс, ошибку со знаком исправил, но у меня другоя проблема после компиляции при расчете результаты выводятся ввиде числа с одной цифрой перед запятой, например число 0,6875 он выводит как 6,875 и аналогично остальные числа.
ЗЫ как можно сделать чтобы результаты округлялись с точность до 4 х знаков после запятой ?

[eoln]

Сообщение от Freeman_DR

результаты выводятся ввиде числа с одной цифрой перед запятой, например число 0,6875 он выводит как 6,875 и аналогично остальные числа.
ЗЫ как можно сделать чтобы результаты округлялись с точность до 4 х знаков после запятой ?

Не "дебюгил" программу, но предполагаю, что в силу типа real, следует форматировать вывод
writeln(h:0:4);
где 4 - количество символов после запятой, 0 - общее количество символов (не стоит пугаться числа 0, целое значение числа h и 4 дробных разряда числа выводятся в любом случае)

[Freeman_DR]

спс у меня оказывается еще в тексте программы несколько ошибок было со скобками
собственно вот исправленый текст, теперь все работает !

Program Visota;
Uses crt;
var
a,b,c,h,m,k:real;
begin
ClrScr;
 begin
   write ('Vvedite 3islo A ' );
   readln (a);
   write ('Vvedite 4islo B  ' );
   readln (b);
   write ('Vvedite 4islo C ' );
   readln (c);

k:=(sqr(b)+sqr(a)-sqr(c))/(2*a*b);


writeln (k:0:4);
end;


begin;

m:=b*k;

writeln (m:0:4);

end;
begin
h:=sqrt((sqr(b))-(sqr(m)));
writeln (h:0:4);
end;
readln;

end.