поглядите пожалуйста. образующая конуса l см сочиняет с плоскостью основания

поглядите пожалуйста.
образующая конуса l см сочиняет с плоскостью основания угол . отыскать объем конуса .
надо составить программку в турбо паскаль
поглядите пожалуйста,что там не так??? ответ не выходит
Program Nomer_2;
uses crt;
Var L,x:integer;
h,R,V:real;
begin
clrscr;
Write('Введите начальные данные');
readln(L,x);
h:=L*sin(x);
R:=L*cos(x);
V:=(1/3)*h*pi*sqr(R);
writeln('Объем конуса равен =', V:8:2);
readln;
end.