Program Hitung Volume Limas

uses crt;
var
a,at,t : byte;
l,v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Limas ***');
writeln;
writeln('Program untuk menghitung volume limas');
writeln('*Rumus V = 1/3 * luas alas * t ');
writeln;
writeln;
writeln;
write(' Masukkan alas limas = ');
readln(a);
Write(' Masukkan tinggi alas limas = ');
readln(at);
write(' Masukkan tinggi limas = ');
readln(t);
l := 1/2 * a * at;
v := 1/3 * l * t;
writeln;
writeln;
writeln('Volume limas yang dimaksud = ', v:6:2,'***');
writeln;
writeln;
readln;
end.