Решите программированием линейных алгоритмов - найдите площадь треугольника, у которого две стороны равны а и в, а угол между ними равен альфе !

Var a,b,alfa,s:real;
begin
writeln('a, b, alfa:');
readln(a,b,alfa);
s:=a*b*sin(alfa*pi/180)/2;
writeln('s = ',s:4:2);
end.

Пример:
a, b, alfa:
4 5 40
s = 6.43