задан одномерный массив из н чисел сосчитать количество элементов массива положительных отрицательных и нулевых

const N = 10;varmas: array [1..N] of integer;i,x,y,z:integer;beginfor i:=1 to 10 doread(mas[i]);x:=0;y:=0;z:=0;for i:=1 to 10 do beginif mas[i]>0 thenx:=x+1else if mas[i]<0 theny:=y+1elsez:=z+1end;writeln('Положительных элементов: ',x);writeln('Отрицательных элементов: ',y);writeln('Нулевых элементов: ',z);end.