Cara membuat program untuk mengitung Volume dan Luas Permukaan Bola

Asslmkm..ok jumpa lgi sobat, kali ini awak masih membahas masalh turbo P. dan pada kesempatan kali ini awak akan membahas bagaimana membuat algoritma untuk menghitung volume dan luas permukaan bola
sebenarnya mudah membuatnya, jika kita mengetahui dan memahami maksudnya..



program volume_dan_luas_bola;
uses crt;
var
   v,l: real;
   r: integer;
begin
clrscr;
       writeln('Menghitung Volume dan Luas Permukaan Bola');
       writeln('                 Input jari-jari (r) bola: ');
       readln(r);
       v:= 4/3*(pi*exp(3*ln(r)));
       l:= 4*(pi*exp(2*ln(r)));
       writeln('volume bola=4/3(pi*r^3)');
       writeln('luas permukaan bola=4(pi*r*2)');
       write('Jadi,  Volume bola adalah ',v:6:2);
       writeln(' dan ');
       writeln('Luas permukaan bola adalah ',l:6:2);
writeln;
readkey;
end.

Ok sekian dan syukran,,mohon komentar demi perbaikan blog ini.syukran. waslmkm