Contoh Program Menghitung Volume Kubus pada Turbo Pascal

-------------------------------------------------------

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.

inget kata pak dosen ^^