contoh pascal menghitung volume kubus

program kubus;
uses wincrt;
var s,v:real;
begin
     writeln('                    =====================================');
     writeln('                    ======*Menghitung Volume kubus*======');
     writeln('================================================================================');
     writeln;
     writeln;
     write('Masukkan sisi kubus = '); readln(s);
     writeln;
     v:=s*s*s;
     write('Maka volume kubus   = ',v:5:2);
     writeln;
     writeln;
     writeln;
     writeln;
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.