Вычисли значение математического выражения в

Во первых хочу заметить, что в реальном мире однозначно односторонних не бывает, особенно если дело касается живого

 1) Источник: учебник Приемник: школьник.
 2) Источник: письмо Приемник: бабушка.
 3) Источник: будильник Приемник: мальчик.
 7) Источник: газета Приемник: человек.
 8) Источник: лист изменений Приемник: ученики. ??
10) Источник: знак Приемник: водители
11) Источник: билет Приемник: мальчик.
Все эти ситуации однотипные, односторонние по типу. Хотя конечно приемник может влиять на книгу/газету и тп, но информация в ней от этого не изменится

 9) Источник: диспетчер. Приемник: пассажиры. ??
Вообще говоря случай односторонний, но возможно влияние на то что скажет диспечер. Например кто-то придет и скажет, что потерял ребенка и диспечер объявит об этом на всю станцию.

 4) Источник: Таня, Лена Приемник: Таня, Лена. Двусторонний (и так все понятно)
 5) Источник: учитель Приемник: класс
Впринцепе односторонний, но ученики могут задавать вопросы. Тут скорее двустороний подчиненный, без разрешения учителя, ученики ничего не говорят. С другой стороны учитель смотрит, как его слушают ученики, считывает настроение класса, тп
 6) Источник: регулировщик Приемник: водители, пешеходы
Это все-таки двусторонний процесс, регулировшик следит за машинами и ситуацией, решает как лучше разрулить ситуацию, а окружающие слушаются его команд.

Опущу все прелюдии.
WriteLn('Введите длины сторон треугольника');
ReadLn(x, y, z);
If x = y and y = z and z = x
 then
  WriteLn('Данный треугольник - равносторонний')
 else
  If (x = y and y = z) or (x = y and x = z) or (x = z and y = z)
   then
    WriteLn('Данный треугольник - равнобедренный')
   else
    If (Sqrt(x) = Sqrt(y) + Sqrt(z)) or (Sqrt(y) = Sqrt(x) + Sqrt(z)) or (Sqrt(z) = Sqrt(x) + Sqrt(y))
     then
      WriteLn('Данный треугольник - прямоугольный')
     else
      If (x < (y + z)) and (y < (x + z)) and (z < (x + y))
       then
        WriteLn('Данный треугольник является обыкновенным')
       else
        WriteLn('Данный треугольник не существует');
p := div((x + y + z) / 2); {Полупериметр}
WriteLn('Периметр треугольника Р =', x + y + z);
WriteLn('Площадь треугольника S =', div(Sqrt(p*(p-x)*(p-y)*(p-z;
WriteLn('Медиана к стороне x -', div(Sqrt(2*Sqr(y) + 2*Sqr(z) - Sqr(x))/2));
WriteLn('Биссектриса стороны х -', div(Sqrt(y*z*(x+y+z)*(y+z-x))/(y+z)));

С синусами/косинусами особая история, напиши мне в лс, чтоб я не забыл потом