Написать программу расчет площади треугольника

var a,b,alpha:integer;

s:real;

begin

Writeln('Введите две стороны и угл треугольника через пробел:');

readln(a,b,alpha);

if(alpha = 90) then

begin

s := (a*b)/2

end

else  

begin

s := a*b*sin(alpha);

end;

Writeln('Площадь равна ',s);

end.

Объяснение: