program isi_dan_luas_kubus

program isi_dan_luas_kubus;
uses crt;
var
        isi,luaspermukaan,sisi:integer;
begin
clrscr;
        writeln('Program Menghitung Isi dan Luas Permukaan Kubus');
        writeln('================================================');
        write('masukan sisi kubus:');readln(sisi);
        writeln;
        isi:=sisi*sisi*sisi;
        luaspermukaan:=6*(sisi*sisi);
        writeln('volumenya adalah: ',isi);
        writeln('luas permukaannya adalah: ',luaspermukaan);
        readln;
end.