create or replace procedure delay (n number) is
a number := 0;
w number := 200000;
begin
  delete na;
  w := n*w;
  for x in 1..w
  loop
    a := a+x;
  end loop;
end delay;

