create table proekt
(pr_id number,
 pr_name varchar2( 50 ),
 constraint proekt_pk primary key (pr_id));

create table podpr
(pr_id number,
 podpr_name varchar2( 50 ),
 constraint podpr_fk foreign key (pr_id)
   references proekt (pr_id));

insert into proekt values ( 1 ,'pr1');
insert into proekt values ( 2 ,'pr2');
insert into proekt values ( 3 ,'pr3');

 ---
 
insert into podpr values ( 1 ,'podpr1_1');
insert into podpr values ( 1 ,'podpr1_2');
insert into podpr values ( 1 ,'podpr1_3');
insert into podpr values ( 1 ,'podpr1_4');
 ---
 
insert into podpr values ( 2 ,'podpr2_1');
insert into podpr values ( 2 ,'podpr2_2');
 ---
 
insert into podpr values ( 3 ,'podpr3_1');
insert into podpr values ( 3 ,'podpr3_2');
insert into podpr values ( 3 ,'podpr1_3');
insert into podpr values ( 3 ,'podpr1_4');
insert into podpr values ( 3 ,'podpr1_5');
insert into podpr values ( 3 ,'podpr1_6');
 ---
 
create or replace procedure my_pr (in_pr_name IN varchar2) is
  v_pr_id number;
  cursor c1 is select podpr_name from podpr where pr_id = v_pr_id;
  v1 c1%rowtype;
  v_res varchar2( 1000 );
begin
  select pr_id
    into v_pr_id
    from proekt
    where pr_name = in_pr_name;

  v_res := in_pr_name;
  open c1;
  loop
    fetch c1 into v1;
    exit when c1%NOTFOUND;
    v_res := v_res||' '||v1.podpr_name;
  end loop;
  close c1;
  dbms_output.put_line(v_res);
end;


set serveroutput on;

begin
my_pr('pr1');
end;
/