решить задачу в Lazarus

Подскажите ,пожалуйста , сможете решить задачу в Lazarus? Задача про нахождение площади и катета

Задача :В равнобедренном треугольнике известно основание c, угол при основании равен альфа. Найти площадь треугольника S и величину боковой стороны а.

Пример могу предоставить и примерный код к этой работе

Здесь пример как должно выглядеть решение

Мне нужны скрины решения + код

Можно часть кода

Для решения этой задачи в Lazarus можно воспользоваться формулами для площади равнобедренного треугольника и нахождения боковой стороны. Вот пример кода, который поможет вам решить задачу:

program TriangleAreaAndSide;

var

c, alpha, S, a: Double;

begin

// Ввод данных: основание c и угол alpha

Write('Введите длину основания треугольника c: ');

ReadLn(c);

Write('Введите угол при основании треугольника alpha (в градусах): ');

ReadLn(alpha);

// Переводим угол из градусов в радианы

alpha := DegToRad(alpha);

// Находим боковую сторону треугольника a

a := 2 * c * Sin(alpha / 2);

// Находим площадь треугольника S

S := c * a / 2;

// Выводим результаты

WriteLn('Боковая сторона треугольника a = ', a:0:2);

WriteLn('Площадь треугольника S = ', S:0:2);

end.

Этот код сначала запрашивает у пользователя длину основания c и угол alpha при основании в градусах. Затем он вычисляет боковую сторону a и площадь треугольника S согласно формулам для равнобедренного треугольника. Наконец, он выводит найденные значения.

Примерный код