KOD_OTDEL  N   2   0
POL        C   1
FIO        C   40
DOHOD      N   8   2

SELECT FIO, POL, AVG(DOHOD) AS SRED_DOHOD ;
FROM DAN ;
INTO CURSOR curResult;
GROUP BY KOD_OTDEL ;
HAVING DOHOD > SRED_DOHOD; 
ORDER BY POL

SELECT CurResult
SCAN
        ?"FIO ",FIO, POL
ENDSCAN

SELECT b.kod_otdel, AVG(B.DOHOD) as sred_dohod FROM DAN B;
group by b.KOD.OTDEL ;
into cursor temp1

SELECT A.FIO, A.POL, A.DOHOD AS SUPER_DOHOD ;
FROM DAN A, temp1 b;
INTO CURSOR curResult;
ORDER BY A.POL,A.FIO
WHERE A.DOHOD > B.SRED_DOHOD and A.KOD_OTDEL=b.KOD_OTDEL

SELECT CurResult
SCAN
        ?"FIO ",FIO, POL
ENDSCAN

SELECT A.FIO, A.POL, A.DOHOD AS SUPER_DOHOD ;
FROM DAN A;
INTO CURSOR curResult;
ORDER BY A.POL,A.FIO
WHERE A.DOHOD > (SELECT AVG(B.DOHOD) FROM DAN B;
WHERE A.KOD_OTDEL=b.KOD_OTDEL )

SELECT CurResult
SCAN
        ?"FIO ",FIO, POL
ENDSCAN

SELECT A.FIO, A.POL, A.DOHOD AS SUPER_DOHOD ;
FROM DAN A, (SELECT b.kod_otdel, AVG(B.DOHOD) as sred_dohod FROM DAN B;
group by b.KOD_OTDEL ) C;
INTO CURSOR curResult;
ORDER BY A.POL,A.FIO
WHERE A.DOHOD > C.SRED_DOHOD and A.KOD_OTDEL=c.KOD_OTDEL

SELECT CurResult
SCAN
        ?"FIO ",FIO, POL
ENDSCAN