составьте программу вычисления диагоналей параллелограмма по сторонам и углу

// 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 60d1=4.35889894354067, d2=6.2449979983984