Program menghitung volume dengan Turbo Pascal

uses srt;
    var
    vol,sisi:integer;
begin
    clrscr;
    writeln("Menghitung Volume");
    write("Sisi : ");readln(sisi);
    vol:=sisi*sisi*sisi;
    writeln("Volume Kubus : ",vol);
    readln;
end.