Program Hitung Volume Kubus

uses crt;
var
s : longint;
begin
clrscr;
writeln('*** Program Hitung Volume Kubus ***');
writeln;
writeln('Program untuk menghitung volume kubus');
writeln('*Rumus V = s x s x s *');
writeln;
writeln;
writeln;
write(' Masukkan besar sisi kubus = ');
readln(s);
writeln;
writeln;
writeln('Volume kubus yang dimaksud = ' , s*s*s,'***');
writeln;
writeln;
readln;
end.