My site

program volume_kubus;

uses wincrt;

var

sisi, volume : integer;

begin

writeln ('program mencari volume kubus');

writeln ('-----------------------------');

writeln ('masukan sisi?'); read (sisi);

volume := sisi * sisi * sisi;

writeln ('jawabannya adalah :'); write (volume);

end.