// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a,b,g:integer;
Write('Введите длины сторон a и b: '); Read(a,b);
Write('Введите угол между сторонами, град: '); Read(g);
var h:=b*sin(DegToRad(g));
Writeln('Площадь треугольника равна ',a*h/2)
end.
Тестовое решение:
Введите длины сторон a и b: 10 20
Введите угол между сторонами, град: 38
Площадь треугольника равна 61.5661475325658