Program Pascal menghitung volume kerucut

Program menghitung volume kerucut         

program hitung;

uses wincrt;

const
phi = 3.14;

var
n : byte;
t,r,v : real;

begin

clrscr;
writeln ('Pilihan Perhitungan');
writeln ('1. Volume Kerucut');
writeln ('2. Gak Jadi!');
writeln ('Pilih sesuai keinginan');readln(n);

case n of

1: begin
writeln ('masukkan jari-jari dan tinggi');readln(r,t);
v:= 1/3 * phi * r * r * t ;
writeln ('Volume Kerucut:',v:9,2);
end;
end;
end.