Tính S biết 2 cạnh, 1 góc

Viết chương trình nhập vào độ dài hai cạnh của tam giác và góc giữa hai cạnh đó, sau đó tính và in ra màn hình diện tích của tam giác
                                              Giải
 Program Tinh_dien_tich_tam_giac;
 Var a,b,x,dientich: Real;
 Begin
       Write('Nhap vao do dai canh thu nhat: '); Readln(a);
       Write('Nhap vao do dai canh thu hai: '); Readln(b);
       Write('Nhap vao goc giua hai canh: '); Readln(x);
       Dientich:=a*b*sin(x)/2;
       Writeln('Dien tich cua tam giac la:',Dientich:0:2);
       Readln;
 End.