FoxPro

[маришка001]

Подскажите как сделать эти два задания*(
2) В режиме трассировки выполните программу и напишите протокол.
3) Замените в программе ProgFor оператор IF ... EndIF функцией IFF ().
LOCAL lnI, laArr1[8], laArr2[1]
laArr1[1]=1187
laArr1[2]=25
laArr1[3]=563
laArr1[4]=487
laArr1[5]=7595
laArr1[6]=846
laArr1[7]=47
laArr1[8]=958
FOR lnI=1 TO ALEN(laArr1)
DIMENSION laArr2[lnI,2]
laArr2[lnI,1]=laArr1[lnI]
IF!ROUND(laArr1[lnI]/2,0)*2-laArr1[lnI]==0 && Нечетные
laArr2[lnI,2]="Нечетные"
ELSE
laArr2[lnI,2]="Четные"
ENDIF
ENDFOR
RETURN