membuat program mencari luas dan volume bola

berikut ini merupakan koding untuk membuat program mencari luas dan volume bola dengan menggunakan bahasa pemrograman pascal

PROGRAM MENCARI_LUAS_DAN_VOLUME_BOLA;
USES WINCRT;
VAR R,V,LUAS  : REAL;

Begin
clrscr;
writeln ('         PROGRAM MENGHITUNG LUAS DAN VOLUME BOLA') ;
writeln;
write(' Bola dengan jari-jari(r) sebesar ');readln(R);
v:=4/3*3.14*R*R*R ;
Luas := 4*3.14*R*R;
writeln(' memiliki volume sebesar ',v:0:2);
writeln(' memiliki luas sebesar ', Luas:0:2);

End.