pertama-tama buka program TPWnya kemudian lalukan intuksi di bawah ini :
program cara_menghitung_volume_kubus;
uses wincrt;
var sisi,volume :integer;
begin writeln ('cara menghitung volume kubus');
writeln ('sisi');
readln (sisi);
volume := sisi*sisi*sisi;
writeln ('volume = ',volume);
end.
sudah selesai dah,temen2x..?
itu cuma sebagai contoh,kamu jga dapat mengembangkanya lagi sobaat...?