Program Procedure dalam Turbo Pascal

program procedure ;
uses crt ;
procedure bola ;
var
r : integer :
luas,phi : real :
begin
writeln( ' jari-jari ') ; readln (r);
writeln( 'phi '); radln (phi);
luas := 4*phi*r*r ;
writeln ('luas bola =  ',luas) ;
end ;
procedure kubus ;
var
s : integer ;
volume : real ;
begin
writeln( ' masukkan sisi ' ) ; readln (s) ;
volume := s*s*s ;
writeln ( 'volume kubus =  ' ,volume);
end ;
begin ;
kubus ;
bola ;
end.

++++++ SELAMAT MENCOBA++++++