{* Задача 571 *}

Unit ZADACH571;
Interface
Implementation
Begin
 writeln('Найти объем параллелепипеда по двум сторонам основания, углу между ними и высоте.');
End.

Program zadach571;

Uses zadach571.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a  : real;
  b  : real;
  h  : real;
  ug : real;
  v  : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Введите длины сторон основания. a, b=');
  read(a, b);
  write('Введите высоту  h=');
  read(h);
  write('Введите угол в градусах = ');
  read(ug);
  v := a * b*sin(ug * pi / 180) * h;
  Writeln('Объем v= ', v : 2:2);
  readkey; {* Нажмите любую клавишу *}
End.