Составить программу вычисления длин медиан треугольника,у которой длины сторон a,b,c

Program asd;
USES crt;
var a,b,c,s1,s2,s3: real;
BEGIN
Clrscr;
Writeln(Vvedite dliny storony a: );
Readln(a);
Writeln(Vvedite dliny storony b: );
Readln(b);
Writeln(Vvedite dliny storony c: );
Readln(c);
s1:=sqrt(2*a*a+2*b*b-c*c)/2;
s2:=sqrt(2*a*a+2*c*c-b*b)/2;
s3:=sqrt(2*c*c+2*b*b-a*a)/2;
Writeln(Dliny median: |,s1:2:2,|,s2:2:2,|,s3:2:2,|);
Readln;
END.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.