{* Нахождение площади треугольника *}

Unit LIN_5;
Interface
Implementation
Begin
 writeln('Нахождение площади треугольника');
End.

Program lin_5;

Uses lin_5.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  x : real;
  y : real;
  c : real;
  d : real;
  z : real;
  e : real;
  a : String;
Begin
  writeln('Vvedite a ili b a - po dline osnovania i visote, b - dlini 2 storon i ugol megdu nimi');
  readln(a);
  If a = 'a' Then
  Begin
    writeln('Vvedite dlinu osnovania i visotu');
    readln(x, y);
    z := 0.5 * x * y
  End;
  If a = 'b' Then
  Begin
    writeln('Vvedite dlini 2 storon i ugol');
    readln(c, d, e);
    z := 0.5 * c * d * sin(e);
  End;
  writeln('Plochad treugolnika = ', z : 5 : 2);
  readkey; {* Ждем нажатия пользователя *}
End.