Contoh Function dan Procedure (Pascal )

function dan procedure pascal

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

var luas : integer ;

function func_luas (x,y : integer) : integer ;

 begin

   result := x*y ;

 end;

procedure kotak1 (x,y : integer);       //kotak 2

 begin

    luas := func_luas (x,y);

    writeln ('hasil luas kotak 2 : ' , luas);

 end;

procedure kotak2 (x,y :integer);                //kotak 1

 begin

   //luas := func_luas (x,y);

   writeln ('hasil luas kotak 2 : ', func_luas (x,y));

 end;

begin

  kotak1 (3,6);

  kotak2 (4,9);

  readln;

end.