Contoh Pascal menghitung volume bola

program bola;
uses wincrt;
var r,v:real;
begin
     writeln('                    ====================================');
     writeln('                    ======*Menghitung Volume Bola*======');
     writeln('================================================================================');
     writeln;
     writeln;
     write('Masukkan jari-jari bola = '); readln(r);
     writeln;
     v:=4/3*(3.14*r*r*r);
     write('Maka volume bola        = ',v:8:2);
     writeln;
     writeln;
     writeln;
     writeln;
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.