Function dan Parameter Pemograman Pascal

berikut contoh codingan pemograman pascal fungsi Function dan Parameter

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

var luas : integer ;

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

 begin

   {variabel global}luas := x*y {parameter};

 end;

procedure kotak (x,y : integer);

 begin

   //luas := x*y;

   luas := func_luas (x,y);

 end;

begin

  //writeln (char(89));

  //writeln (ord (98));

  //writeln (ord ('G'));

  writeln (round (88.8));{dibulatkan}

  //func_luas (65,87);

  writeln ('nilai dari function : ' , func_luas (65,87));

  kotak (56,78);

  writeln ('nilai dari prosedur kotak : ' , luas);

  readln;

end.