kode Rumus Volume Limas Segiempat pada Pascal

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

Kode Berikut untuk Copy Paste :

uses crt;
var s,t,V:Real;
begin
clrscr;
write('Masukkan Sisi alas limas segi empat(cm):'); readln(s);
write('Masukkan tinggi limas segi empat(cm):'); readln(t);
V:=1/3*s*s*t;
writeln;
writeln('Volume Limas Segiempat=',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