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

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