Заданы сторона треугольника и два прилежащих к ней угла. Найти медианы — Pascal(Паскаль)

uses crt;
var a,b,c,ua,ub,uc,ma,mb,mc:real;
begin
clrscr;
repeat
write('Введите сторону треугольника a=');
readln(a);
until a>0;
repeat
writeln('Введите 2 прилежащих угла в градусах:');
readln(ub,uc);
until(ub>0)and(uc>0)and(ub+uc<180);
ua:=(180-ub-uc)*pi/180;
ub:=ub*pi/180;
uc:=uc*pi/180;
b:=a*sin(ub)/sin(ua);
c:=a*sin(uc)/sin(ua);
ma:=sqrt(2*(b*b+c*c)-a*a)/2;
mb:=sqrt(2*(a*a+c*c)-b*b)/2;
mc:=sqrt(2*(b*b+a*a)-c*c)/2;
{writeln('Длины сторон: ',a:0:1,'  ',b:0:1,'  ',c:0:1);}{для проверки}
writeln('Длины медиан: ',ma:0:1,'  ',mb:0:1,'  ',mc:0:1);
readln
end.