Program Hitung Volume Bola

uses crt;
var
r : byte;
v : real;
begin
clrscr;
writeln('*** Program Hitung Volume Bola ***');
writeln;
writeln('Program untuk menghitung volume bola');
writeln('*Rumus V = 4/3 * 3.14 * r^3*');
writeln;
writeln;
writeln;
write('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;
readln;
end.