RUMUS MEMBUAT KUBUS

program hitung_kubus;

uses
crt;
var
s :single;
volume,lp :double;
begin
clrscr;
writeln('hitung volume kubus');
writeln(' ');
write('masukkan nilai sisi :');
readln(s);
volume:=s*s*s;
writeln('jumlah volume :',volume:3:2);
lp:=6*s*s;
writeln('jumlah luas permukaan :',lp:3:2);
read(lp)
end.