program qq;
var a,b,s: real; c: integer;
begin
writeln('сторона a и b';)
read (a,b);
writeln ('введите угол в градусах');
read(c);
s:=1/2*a*b*sin(2*PI*c/360);
writeln ('площадь=',s)
end.
Объяснение:
