Perhitungan Volume Bola Dengan Bahasa Pemograman Pascal

uses crt;

var
jari_jari:integer;
Volume_bola:real;
begin
clrscr; writeln(' ======= MENGHITUNG VOLUME BOLA ======');
writeln(' ');
write(' Masukan jari jari bola :');
readln(jari_jari);
volume_bola := 4/3*22/7*jari_jari*jari_jari*jari_jari;
writeln(' Volume Bola :',volume_bola:6:2);
readln;
end.


Hasil: