Объем пирамиды

Var a,L,B,V,h:real;
begin
writeln('vvedite L, B and storony osnovania a');
readln(L,B,a);
h:=Lsin(B);
V:=((a*a*exp(0.5*ln(3)))/12)*h;
writeln('ob'em raven', V:10:6);
end.

Var a,L,B,V,h:real;
begin
writeln('vvedite L, B and storony osnovania a');
readln(L,B,a);
h:=L*sin(B);
V:=((a*a*exp(0.5*ln(3)))/12)*h;
writeln('ob'em raven', V:10:6);
end.

uses crt;
var L,b,Hp,Ho,a,V:real;
begin
clrscr;
repeat
writeln('Введите длину ребра L и угол с основанием b (0-90 град.):');
readln(L,b);
until(b>=0)and(b<=90);
b:=b*pi/180;
Hp:=l*sin(b);
Ho:=L*cos(b)*3/2;
a:=Ho/sin(pi/3);
V:=(a*Ho*Hp/6);
write('Объем прирамиды=',V:0:4);
readln
end.

Var a,L,B,h,V:real;
begin
writeln('vvedite L and B');
readln(L,B);
if B<90 then begin
h:=L*sin(B);
a:=2*(L*L-h*h);
V:=((a*a*exp(0.5*ln(3)))/12)*h;
writeln('ob'em raven', V:10:6)
end;
else writeln('ne est' piramida');
end.