Оператор:
for i:=1 to 20 do
if a

<>0 then writeln \(a⟨0⟩\);
выводит на экран:

• цифру 0
• отрицательные элементы массива a
• ненулевые элементы массива a
• положительные элементы массива a