kode Rumus Volume Kerucut pada Pascal

Berikut kode rumus Volume Kerucut pada bahasa pemrograman Pascal:
Gampang kok tinggal Ketik "KODE DI BAWAH INI":


Kode Berikut untuk Copy Paste :

uses crt;
var r,t,V:Real;
begin
clrscr;
write('Masukkan Jari-jari alas Kerucut(cm):'); readln(r);
write('Masukkan tinggi Krucut(cm):'); readln(t);
L:=1/2*22/7*r*r*t;
writeln;
writeln('Volume Kerucut=',V:10:2,'cm3');
readln;
end.

Trus jalanin dech --> Run pada Turbo Pascal yang kalian punya.
Jika ada kesalahan tolong dikonfirmasi di web blog ini,.. hehehehe :D
Semoga bermanfaat