program gutuu;
var 
a,b,d,s:real; 
k1:byte;
begin
  writeln('Введите метод расчета');
  writeln('1-площадь прямоугольника через 2 стороны');
  writeln('2-площадь прямоугольника через диагональ и угол');
  readln(k1);
  case k1 of
   1:begin
       writeln('Введите исходные данные a, b:');
       readln(a, b);
       s:=a*b;
       writeln('Площадь равна= ',s:10:3);
     end;
   2:begin
       writeln('Введите исходные данные d, y (в радианах)');
       readln(d, y);
       s:=0.5*d*d*sin(y);
       writeln('Площадь равна= ',s:10:3);
     end;
  end;
 readln; 
end.