Помогите написать программу!
Задан треугольник АВС длинами своих сторон. Определить его медианы (медиана,проведенная к стороне А равна 0.5(2в2+2с2-а2).
Код:
Program forth;
uses crt;
Var
k1,k2,b,c:byte; p1,p2,n,v1,v2,a:real;
function fact(x:real):real;
begin
if x=0 then fact:=1
else fact:=fact(x-1)*x;
end;
begin clrscr;
a:=1/2;
k1:=b; k2:=c;
v1:=fact(k1); p1:=2*2*a+2*2*c+2*b;
v2:=fact(k2); p2:=2*2*a+2*2*b+2*c;
writeln('Мидиана к стороне b =',p1);
writeln('Мидиана к стороне =',p2);
readln;
end.
получается что такое но эта полная ерись=)))