[korsarfan]

Есть вроде бы не сложное задание:
Написать программу для вычисления площади треугольного участка по известному значению основания C в метрах и углов при основании α, β в градусах, минутах и секундах. Площадь определить в гектарах с точностью до 0,01 га. В программе предусмотреть проверку соотношение α+β>180° (для этого α и β необходимо предварительно перевести в градусы с десятичной дробной частью). В случае невыполнения этого соотношения вывести сообщение «СУММА УГЛОВ ПРЕВОСХОДИТ 180 ГР.» и передать управление оператору ввода исходных данных.
Формула для вычисления площади: S=((C^2)*sin(α)*sin(β))/(2*sin(α+β));
В программе воспользоваться внутренней функцией для перевода угла из градусной меры в радианную. Форма запросов при вводе исходных данных:
СТОРОНА=
ПЕРВЫЙ УГОЛ: ГР., МИН., СЕК.=
ВТОРОЙ УГОЛ: ГР., МИН., СЕК.=
Форма вывода результата:
ПЛОЩАДЬ= значение S ГА.


Я не совсем понял как сделать "В программе воспользоваться внутренней функцией для перевода угла из градусной меры в радианную." что это за функция такая ?
Вот написал программу Вроде считает но корректно условие почему то не проверяет (Rad+Radd)>180 :
Где ошибка?

Код:

procedure TForm1.Button1Click(Sender: TObject);
 
var
  A:real;
  RAD:real;
  RADD:real;
  G,M,GG,MM:integer;
  C,CC:integer;
  S:real;
 
Begin
 
A:=StrToFloat(Edit1.Text);
G:=StrToInt(Edit2.Text);
M:=StrToInt(Edit3.Text);
C:=StrToInt(Edit4.Text);
GG:=StrToInt(Edit5.Text);
MM:=StrToInt(Edit6.Text);
CC:=StrToInt(Edit7.Text);
Rad:=(G+(M+C/60)/60)*PI/180;
Radd:=(GG+(MM+CC/60)/60)*PI/180;
 
if
 
(Rad+Radd)>180
 
then
               begin ShowMessage('СУММА УГЛОВ ПРЕВОСХОДИТ 180 ГР.');
               Exit
end
else
Begin
S:=(A*A*sin(Rad)*sin(Radd))/(2*sin(Rad+Radd));
S:=S/10000;
S:=Round(S*10)/10;
Label5.Caption:=FloatToStr(S)+'га';
end;
end;

Заранее спасибо за ответ! И прилагаю сам проект в делфи)
http://zalil.ru/31076781