Program Hitung Volume Bola

uses crt;
var
r:byte;
v:real;
begin
clrscr;
writeln('*************program hitung volume bola*************');
writeln('**');
writeln('*ini bertujuan untuk hitung volume bola*');
writeln('*dengan rumus v=4/3*3.14*r^3*');
writeln('**');
writeln('************************');
writeln;
writeln('masukkan jari-jari bola=');
readln(r);
v:=4/3*3.14*r*r*r;
writeln;
writeln;
writeln('***volume bola yang dimaksud=',v:6:2,'***');
writeln;
writeln;
writeln;
writeln;
readln;
end.