PROGRAM_PASCAL_VOLUME_KUBUS;

PROGRAM_VOLUME_KUBUS;

Uses Crt;
Var
Sisi : word;
Volume : word;

Begin

Clrscr;

Write(‘Masukkan Sisi Kubus’);
Readln(Sisi);

Volume := Sisi*Sisi*Sisi;

Writeln(‘Volume Kubus Dengan Sisi = ‘,Sisi,’ Adalah ’,Volume);
Readln;
End.