Program Menghitung Volume Kubus

==================================
Program Menghitung_Volume_Kubus
Uses wincrt;
Var   s : integer ;
        L : integer ;
Begin
    write('Masukan Nilai Sisi Kubus = ');readln(s);
    L:=s*s*s;
    write('Volume Kubus = ', L);
End.
==================================