How many responsibility assign in a User

SELECT  FU.USER_ID,FU.USER_NAME
        ,FAT.APPLICATION_NAME
        ,FA.APPLICATION_SHORT_NAME SHORT_NAME
        ,FRT.RESPONSIBILITY_NAME
        ,FRT.DESCRIPTION
        ,FR.RESPONSIBILITY_KEY
        ,TO_CHAR(FUR.CREATION_DATE,'DD-MON-YYYY HH:MI:SS AM') RESPONS_START_DATE
FROM    FND_RESPONSIBILITY FR
,       FND_RESPONSIBILITY_TL FRT
,       FND_APPLICATION     FA
,       FND_APPLICATION_TL  FAT
,       FND_USER_RESP_GROUPS_DIRECT FUR
,       FND_USER            FU
WHERE   FR.APPLICATION_ID   =   FRT.APPLICATION_ID
AND     FR.RESPONSIBILITY_ID=   FRT.RESPONSIBILITY_ID
AND     FA.APPLICATION_ID   =   FR.APPLICATION_ID
AND     FA.APPLICATION_ID   =   FAT.APPLICATION_ID
AND     FUR.RESPONSIBILITY_ID=  FR.RESPONSIBILITY_ID
AND     FUR.USER_ID         =   FU.USER_ID
AND     FU.USER_NAME        =   UPPER(NVL(:USER_NAME,FU.USER_NAME))  --'PO'
AND     EMPLOYEE_ID  IS NOT NULL

Fibbonacci Series

Declare
x number;
y number;
z number;
ctr number;
q number;

begin
q:=&q;
x:=0;
y:=1;
ctr :=2;
dbms_output.put_line('........FIBBONACCI SERIES........'||sysdate);
dbms_output.put_line(x);
dbms_output.put_line(y);
for ctr in 1..q
loop
z:=x+y;
dbms_output.put_line(z);
x:=y;
y:=z;
end loop;
end;