kode Rumus Volume Balok pada Pascal

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

Kode Berikut untuk Copy Paste :

uses crt;
var p,l,t,V:Real;
begin
clrscr;
write('Masukkan Panjang Balok(cm):'); readln(p);
write('Masukkan Panjang Balok(cm):'); readln(l);
write('Masukkan tinggi Krucut(cm):'); readln(t);
V:=p*l*t;
writeln;
writeln('Volume Balok=',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