var a,b,alpha,s:real;begin writeln('Вычисление площади треугольника'); writeln('Введите (через пробел) длины двух сторон (см) треугольника'); readln(a,b); writeln('Введите величину угла (градус) между сторонами треугольника'); readln(alpha); alpha:=DegToRad(alpha); writeln('Площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.')end.Тестовое решение:Вычисление площади треугольникаВведите (через пробел) длины двух сторон (см) треугольника25 17Введите величину угла (градус) между сторонами треугольника30Площадь треугольника: 106.25 кв.см.Вычисление площади треугольникаВведите (через пробел) длины двух сторон (см) треугольника11 16.3Введите величину угла (градус) между сторонами треугольника39Площадь треугольника: 56.4185730576179 кв.см.