ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!

ОТДЕЛ Задание;

ПЕР
W: РЯД 10 ИЗ ЦЕЛ;
положительных, ненулевых, сч: ЦЕЛ;

УКАЗ
положительных := 0;
ненулевых := 0;
ОТ сч := 0 ДО РАЗМЕР(W)-1 ВЫП
ЕСЛИ W[сч] > 0 ТО УВЕЛИЧИТЬ(положительных)
АЕСЛИ W[сч] = 0 ТО УВЕЛИЧИТЬ(ненулевых)
КОН
КОН

КОН Задание.