function dan procedure

function dan procedure
---------------------------------------------------------------------------

var

  luas,p,l : integer ;

function f_luas {(x,y : integer )}: integer;

  begin

    //write ('masukkan x kotak 1 : ');readln (x);

    //write ('masukkan y kotak 1 : ');readln (y);

    write ('masukkan x kotak 1 : ');readln (p);

    write ('masukkan y kotak 1 : ');readln (l);

    result := p*l ; //x*y ;

  end;

procedure k1; //(x,y : integer );

 begin

    luas := f_luas;

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

 end;

procedure k2 ;//(x,y : integer);

 begin

   writeln ('hasil luas kotak 2 : ' , f_luas{(x,y)});

 end;

begin

  k1 (p,l);

  k2 (4,9);

  readln;

end.