Pl/SQl Program for finding minimum of two number using Procedure

declare
  a number;
  b number;
  c number;
  procedure find_min(x in number, y in number, z out number) IS
  begin
    if (x < y) then
      z := x;
    else
      z := y;
    end if;
  end;
begin
  a := 23;
  b := 34;
  find_min(a, b, c);
  dbms_output.put_line('The minimum of (23,32): ' || c);
end;