Program Hitung Volume Kubus

uses crt;
var
s:longint;
begin
clrscr;
writeln('************program hitung volume kubus*********');
writeln('**');
writeln('*program ini bertujuan untuk menghitung volume kubus*');
writeln('*dari maukan(sisi)dengan rumusv=s x s x s*');
writeln('**');
writeln('*********************');
writeln;
writeln('masukan besar sisi kubus=');
readln(s);
writeln;
writeln;
writeln('***volume kubus yang dimaksud=',s *s*s,'********');
writeln;
writeln;
writeln;
writeln;
readln;
end.