Найти площадь треугольник (задача в делфи)

[YO$YA]

Нужно сделать задачку, буду благодарен=) с меня красивый номерок ICQ )))
вот условие задачи:
Данны две стороны треугольника a, b и угол между ними B(угол задан в градусах). Найти площадь треугольника.

если что пишите в аську за номерком: 441-441-448

[NieL]

procedure TForm1.FormCreate(Sender: TObject);
var
  a, b, f: Integer;
  S: Extended;
begin
  a := 12; // сторона a
  b := 4;  // сторона b
  f := 30; // угол между ними
  S := ((a * b) / 2) * sin(f);
  ShowMessageFmt('Площадь: %f', [S])
end;

[Карась]

А что если никому ненужна такая бесполезная штука как "красивый номерок ICQ"?

[YO$YA]

Ну тогда этому человеку большое спасибо, даже огромнейшое)))
NieL, пиши в личку если надо номерок.
NieL, спасибо огромное за помощь! =)

[YO$YA]

а в консольном приложении не получится ?

[Карась]

Получиться, надо только коечто убрать и коечто переписать.