Определите длину третьей стороны треугольника по координатам двух сторон и углу между ними - PascalABC.NET

var a,b,c,uc:real;
begin
repeat
writeln('Введите 2 стороны треугольника');
readln(a,b);
until(a>0)and(b>0);
repeat
write('Введите угол между ними в градусах 0<uc<180 uc=');
readln(uc);
until(uc>0)and(uc<180);
uc:=uc*pi/180;//переведем в радианы
c:=sqrt(a*a+b*b-2*a*b*cos(uc));
writeln('Сторона С=',c:0:2);
end.