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

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