  CREATE OR REPLACE PROCEDURE list_big_cities
       (the_country country.code%TYPE)
  IS
  BEGIN
    FOR the_city IN
     ( SELECT Name
       FROM City
       WHERE Country = the_country
       AND Population > 1000000 )
    LOOP
      dbms_output.put_line(the_city.Name);
    END LOOP;
  END;
/
