program pascal menghitung volume bola

 program menghitungvolumebola;
  uses crt;
  function volume(r,t:real):real;
begin volume:=(4/3*22/7*r*t*t* t) ;end;
var r,t:real;
begin
TextColor(90+ 128);
TextBackground(76);
clrscr;        writeln ('vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv');
 writeln ('v  menghitung volume bola           v');
 writeln ('vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv');
 TextColor(5+ 128);
 TextBackground(46);
 write ('massukan nilai jari jari :');readln(r);
 write ('massukan nilai tinggi :'); readln(t) ;
 TextBackground(567);
 TextColor(68+ 128);
 write ('jadi volume bola adallah............=',volume(r,t) );
 readln;


end.