Var A,B: Array [100: Stream];
CADR b;
FOR I=1 TO 100 BEGIN
IF A[I]>0 THEN B[I]=sin(A[I]);
ELSE B[I]=exp(A[I]**2);
END;
ENDCadr;

Рис.8. Применение внутреннего условного оператора