// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,ag):=ReadReal3('Введите размеры сторон и угол между ними:');
var d1:=Sqrt(a*a+b*b-2*a*b*Cos(DegToRad(ag)));
var d2:=Sqrt(a*a+b*b-2*a*b*Cos(DegToRad(180-ag)));
Writeln('d1=',d1,', d2=',d2);
end.
Пример
Введите размеры сторон и угол между ними: 5 2 60
d1=4.35889894354067, d2=6.2449979983984