UVa OJ 10909-Soya Milk

{
Author:wzx961008
Problem:UVa 11909-Soya Milk
Verdict:Accepted
Language:PASCAL
Run Time:0.016s
Submission Date:2011-02-09 13:55:34
}
var l,w,h,alpha,volume:longint;
ans,empty,sinval,cosval:extended;
begin
while not eof do begin
readln(l,w,h,alpha);
volume:=l*w*h;
sinval:=sin(2*pi*alpha/360);
cosval:=cos(2*pi*alpha/360);
if sinval/cosval<h/l then begin
empty:=w*((l*l/cosval*sinval)/2);
ans:=volume-empty;
end else ans:=w*(h*(h/(sinval/cosval))/2);
writeln(ans:0:3,' mL');
end;
end.