С КЛАВИАТУРЫ ВВОДЯТ n чисел .Определить сколько среди них положительных

спасибо,большое))))

Program zic;var a,b,c,d,e:integer;beginWriteln('Введите 5 чисел');Readln(a,b,c,d,e);if (a>0) and (b>0) and (c>0) and (d>0) and (e>0) then Write('',Ваши числа положительные) elseif a>0 and b>0 and c>0 and d>0 and e<0 then Write('',Все ваши числа положительные кроме числа e) elseif a>0 and b>0 and c>0 and d<0 and e>0 then Write('',Все ваши числа положительные кроме числа d) elseif a>0 and b>0 and c<0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа c) elseif a>0 and b<0 and c>0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа b) elseif a<0 and b>0 and c>0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа a) elseif a>0 and b>0 and c>0 and d<0 and e<0 then Write('',Все ваши числа положительные кроме числа d и e) elseif a>0 and b>0 and c<0 and d>0 and e<0 then Write('',Все ваши числа положительные кроме числа c и e) elseДальше просто меняеш знаки и числа.Концовка такаяif a<0 and b<0 and c<0 and d<0 and e<0 then Write('',Все ваши числа отрицатильные);end.P.s. Все эти с<0 и т.д. поставь в скобки