Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / labrab04

program labrab04;
uses crt;
var a,b,y,h,S: real;
begin
 clrscr;
 writeln(' Введите первую сторону ');
 readln(a);
 writeln(' Введите вторую сторону ');
 readln(b);
 writeln(' Введите угол между ними');
 readln(y);
 h:=b*sin(y*180/pi);
 S:=a*h/2;
 writeln(' Площадь треугольника =  ', S:5:2);
 readln;
end.