Задача на площадь треугольника, подскажите в чем ошибка, пожалуйста Опции

[Анюта]

Здравствуйте! Спасибо вам большое за помощь, в решении предыдущих задач. Но у меня возникла новая проблема. Задача, сама по себе очень простая, вот ее суть: Известны две стороны треугольника а, b и угол между ними, найти его площадь.. Проблема состоит в том, что площадь получается отрицательной величиной, и как показала отладка происходит это при вычислении синуса угла, даже в том случае, когда по идеи синус должен быть положительным(например при значении 60). Вот код задачи:

uses crt;
var
a,b,ygol,s,k:real;
begin
clrscr;
write('Vvedite storony a ');read(a);
write('Vvedite storony b ');read(b);
write('Vvedite ygol ');read(ygol);
s:=0.5*a*b*sin(ygol);
writeln('S= ',s:6:2);
readkey;
end.

[Анюта]

Вот глупая! Спасибо!