Напишите программу, которая вычисляет площадь и периметр треугольника по двум его сторонам.Срочно!!!!!!!!!!!!!!!!!!!!

var a,a1,b: Real;beginwriteln('Введите синус угла а, сторону a, сторону b');readln(a,a1,b);writeln('S=',(1/2)*a1*b*sin(a));writeln('P=',a+b);end.