Помогите пожалуйста! Очень срочно!
_______________________________

Задание 1.

Найти площадь треугольника, две стороны которого равны а и b , а уголь между этими сторонами равен у.


Задание 2.

Составить программу вычисления объема цилиндра и объема конуса, которые имеют одинаковую высоту Н и одинаковый радиус основания R.
1 и 2 программу протестировать в Паскале и показать результат работы (ОБЯЗАТЕЛЬНО)

1.program plo;

program plo;

var a, b, y: integer;

   s:real;

const pi=3.14;

begin

writeln('Длина сторон: ');

readln(a, b);

writeln('Угол: ');

readln(y);

s:=0.5*a*b*sin(y*pi/180);

writeln('S= ', s)

end.

2. program V;

var a, b: integer;

   s1, s2:real;

const pi=3.14;

begin

writeln('Высота H= ');

readln(a);

writeln('Радиус R= ');

readln(b);

s1:=pi*a*sqr(b);

s2:=pi*a*sqr(b)/3;

writeln('Объем цилиндра = ', s1);

writeln('Объем конуса = ', s2);

end.