program  N3_by_k1T4eR;

 uses 
    CRT;

 type 
    Triangle =  record 
        A, B, C, Ma, Mb, Mc:  record  X,Y: Real  end ;
        la, lb, lc, lma, lmb, lmc: Real;
        p, R: Real;
     end ;

 const 
    OutL= 8 ; OutD= 2 ;

 var 
    T: Triangle;
    z:  String ;

 Procedure  CalcTriangle( var  T:Triangle);
 begin 
    T.Ma.X:=(T.B.X+T.C.X)/ 2 ;
    T.Ma.Y:=(T.B.Y+T.C.Y)/ 2 ;
    T.Mb.X:=(T.A.X+T.C.X)/ 2 ;
    T.Mb.Y:=(T.A.Y+T.C.Y)/ 2 ;
    T.Mc.X:=(T.A.X+T.B.X)/ 2 ;
    T.Mc.Y:=(T.A.Y+T.B.Y)/ 2 ;

    T.la:=Sqrt(Sqr(T.B.X-T.C.X)+Sqr(T.B.Y-T.C.Y));
    T.lb:=Sqrt(Sqr(T.A.X-T.C.X)+Sqr(T.A.Y-T.C.Y));
    T.lc:=Sqrt(Sqr(T.B.X-T.A.X)+Sqr(T.B.Y-T.A.Y));
    T.lma:=Sqrt(Sqr(T.A.X-T.Ma.X)+Sqr(T.A.Y-T.Ma.Y));
    T.lmb:=Sqrt(Sqr(T.B.X-T.Mb.X)+Sqr(T.B.Y-T.Mb.Y));
    T.lmc:=Sqrt(Sqr(T.C.X-T.Mc.X)+Sqr(T.C.Y-T.Mc.Y));

    T.p:=(T.la+T.lb+T.lc)/ 2 ;
    T.R:=(T.la*T.lb*T.lc)/( 4 *Sqrt(T.p*(T.p-T.la)*(T.p-T.lb)*(T.p-T.lc)));
 end ;

 Function  TrimPrint(N: Real): string ;
 var 
    s:  String ;
 begin 
    Str(N:OutL:OutD,s);
     while  s[ 1 ]=' '  do  Delete(s, 1 , 1 );
    TrimPrint:=s;
 end ;

 Procedure  InputPoint( var  r: Real; Message:  String );
 var 
    s:  String ;
    code: Integer;
 begin 
     if  Length(Message)> 0   Then 
         begin  Write('Координаты точки '); Write(Message); WriteLn(':')  end ;
     repeat 
         if  Length(Message)> 0   then  Write('x = ')  else  Write('y = ');
        ReadLn(s);
        Val(s,r,code);
     until  code= 0 ;
 end ;

 Procedure  OutResults(T:Triangle);
 begin 
    WriteLn('Ваш результат при A(', TrimPrint(T.A.X), ';', TrimPrint(T.A.Y), '), B(',
     TrimPrint(T.B.X), ';', TrimPrint(T.B.Y), '), C(', TrimPrint(T.C.X), ';', TrimPrint(T.C.Y), '):');
    WriteLn;
    WriteLn('Радиус R = ', TrimPrint(T.R));
    WriteLn('Длина медианы M(A) = ', TrimPrint(T.lma));
    WriteLn('Длина медианы M(B) = ', TrimPrint(T.lmb));
    WriteLn('Длина медианы M(C) = ', TrimPrint(T.lmc));
 end ;

 begin 
 repeat 
    ClrScr;
    WriteLn('Добро пожаловать!');
    WriteLn;
    WriteLn('Для нахождения R круга и медиан треугольника введите:');
    WriteLn;

    InputPoint(T.A.X,'A');
    InputPoint(T.A.Y,'');
    InputPoint(T.B.X,'B');
    InputPoint(T.B.Y,'');
    InputPoint(T.C.X,'C');
    InputPoint(T.C.Y,'');

    CalcTriangle(T);
    OutResults(T);

    WriteLn;
    WriteLn('*** Данную программу составил студент Дмитрий ***');
    WriteLn;

    z:='N';
    Write('Повторить?(Y):');
    ReadLn(z);
 until  UpCase(z[ 1 ])<>'Y';
 end .