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

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

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