Penghitungan Volume Limas Dengan Bahasa Pemograman Pascal

uses crt;

var

P,L,T:integer;

Volume_Limas:real;

Begin

clrscr;

write('Masukan Panjang Limas :');

readln(P);

write('Masukan Lebar Limas :');

readln(L);

write('Masukan Tinggi Limas :');

readln(T);

volume_Limas:=(1/3*P*L*T);
writeln('Volume Limas :',

Volume_Limas:6:2);

readln;

end.

Hasil :