Оператор:
for i:=1 to 20 do
if a[i]<=0 then writeln (a[i]);
выводит на экран:
цифру 0
положительные элементы массива a
ненулевые элементы массива a
отрицательные и нулевые элементы массива a