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

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

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