-------------------------------------------------------
Program Mengitung_Volume_Kubus;
Uses Wincrt;
Var
L,S:integer;
Begin
Writeln;
Writeln('------------------------------------');
Writeln('Program Hitung Volume Kubus');
Writeln('------------------------------------');
Writeln;
Write('Masukan Nilai Sisi Kubus = ');Readln(S);
L:=S*S*S;
Writeln;
Writeln('Maka Luas Volume Dari Kubus = ',L);
End.
------------------------------------------------------
clrscr nya man massssss
BalasHapus