Program Hitung Volume Limas

uses crt;
var
r,t:byte;
v:real;
begin
clrscr;
writeln('************program hitung volume limas*******');
writeln('**')
writeln('*program ini bertujuan untuk menghitung volume limas*');
writeln('*dari masukan dengan rumus v=1/3*luas alas*t*');
writeln('**');
writeln('**************************');
writeln;
write('masukkan alas limas=');
readln(al);
write('masukkan tinggi alas limas=');
readln(tal);
write('masukkan tinggi limas=');
readln(t);
i:=1/2*a*at;
v:=1/3*l*t;
writeln;
writeln;
writeln('**volume limas yang dimaksud=',v:6:2,'****');
writeln;
writeln;
writeln;
readln;
end.