var a,b,c,s: real;
begin
writeln ('введите a,b,c, где a,b-стороны треугольника, а c угол (в радианах)');
readln (a,b,c);
s:=1/2*a*b*sin(c);
writeln(s);
end.
var a,b,c,s: real;
begin
writeln ('введите a,b,c, где a,b-стороны треугольника, а c угол (в радианах)');
readln (a,b,c);
s:=1/2*a*b*sin(c);
writeln(s);
end.