create or replace
procedure num_test_as_integer is
  x integer;
  t number := dbms_utility.get_time;
begin
  for i in 1..10000000 loop
   x := i;
  end loop;
dbms_output.put_line((dbms_utility.get_time-t)||'cs');
end;
-------------------------------------------
Procedure created.
SQL> exec num_test_as_integer
500cs (среднее значение 5 выполнений)