Program Menghitung Luas Lingkaran & Volume Kubus #pascal

Soal nomer 2 kisi2 uas gan ,
jadi soalnya gni , buat program menghitung luas lingkaran & volume bola dengan prosedure parameter .
yang nanti tampilan keluar program gni :

--------------------------------------------------------
nilai jari-jari : 4 ( user ngisi angkar terserah , misal 4 )

luas lingkaran adalah 246.95 (hasil luas lingkaran)
volume bola adalah 50.24 ( hasil volume bola )
------------------------------------------------------

pascalnya yang ane buat gni gan , 

=======================================================
Program hitung_luaslingkran_dan_volumebola;
uses wincrt;
var
   j : integer;
procedure hitung ( jari: integer);
var
   l,v: real;
const phi: real =3.14;
       begin
       l := phi*jari*jari;
       v := 4/3*phi*jari*jari*jari;
       writeln('luas lingkaran adalah =',l : 9:2);
       writeln('volume bola adalah=',v : 9:2);
        end;
begin
     write('jari-jari lingkaran & bola adalah =');readln(j);
     hitung(j);              
end.

=======================================================