declare
    cursor c1 is select prog, f_date, gruppa, art from price
        where f_date>'01.01.2003' and gruppa is not null;
    type tmpTable is table of c1%ROWTYPE index by binary_integer;
    TmpPrice TmpTable;
    art char ( 100 );
    i number := 1 ;
begin
    open c1;
    loop
        fetch c1 into tmpPrice(i);
        exit when c1%notfound;
        i := i+ 1 ;
    end loop;
    for f in (select dogovor, art from sostav s, tmpPrice t
        where s.art=t.art and s.skidka=t.f_date)
    loop
        dbms_output.put_line(f.dogovor);
    end loop;
end;