Решить задачу на паскаль

program TriangleCalculation;

var
a, b, c_degrees: integer;
c, p, s: real;

begin
{ Генерация случайных значений a, b и c в диапазоне от 5 до 10 }
Randomize;
a := Random(6) + 5; // Генерируем a в диапазоне [5, 10]
b := Random(6) + 5; // Генерируем b в диапазоне [5, 10]
c_degrees := Random(6) + 5; // Генерируем c в диапазоне [5, 10] в градусах

{ Переводим угол c из градусов в радианы }
c := c_degrees * Pi / 180;

{ Вычисление стороны c }
c := Sqrt(a * a + b * b - 2 * a * b * Cos(c));

{ Вычисление полупериметра p }
p := (a + b + c) / 2;

{ Вычисление площади треугольника s по формуле Герона }
s := Sqrt(p * (p - a) * (p - b) * (p - c));

{ Вывод результатов }
writeln('Сторона a: ', a);
writeln('Сторона b: ', b);
writeln('Угол c (в градусах): ', c_degrees);
writeln('Сторона c: ', c:0:2);
writeln('Площадь треугольника s: ', s:0:2);
end.

ChatGPT: