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