CREATE OR REPLACE PROCEDURE AddCircle (
 p_x POINT.x%TYPE,
 p_y POINT.y%TYPE,
 p_radius CIRCLE.radius%TYPE) AS
BEGIN
 INSERT INTO POINT p VALUES (
  (SELECT (COUNT(*) + 1) FROM POINT prep), p_x, p_y);  
 INSERT INTO CIRCLE c VALUES (
  (SELECT (COUNT(*) + 1) FROM CIRCLE prec),   
  (SELECT COUNT(*) FROM POINT prep), p_radius);   
END;
/