Penghitungan Volume Kubus Dengan Bahasa Pemograman Pascal

uses crt;
var

sisi,volume_kubus:integer;

Begin

clrscr;

writeln(' ==== MENGHITUNG VOLUME KUBUS ====');

writeln(' ');

write(' Masukan nilai sisi :');

readln(Sisi);

volume_kubus := Sisi*sisi*sisi;

writeln(' Volume Kubus :',volume_kubus);

readln;

end.

Hasil :