Program Hitung Volume Kerucut

uses crt;
var
r,t : byte;
v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Kerucut ***');
writeln;
writeln('Program untuk menghitung volume kerucut ');
writeln('*Rumus V = 1/3 * 3.14 * r^2 * t *');
writeln;
writeln;
writeln;
write('Masukkan jari-jari kerucut = ');
readln(r);
Write('Masukkan tinggi kerucut = ');
readln(t);
v := 1/3 * 3.14 * r * r * t;
writeln;
writeln;
writeln('Volume kerucut yang dimaksud = ', v:6:2,'***');
writeln;
writeln;
readln;
end.