Склавиатуры вводят 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 e< 0 then write('',все ваши числа положительные кроме числа e) else if a> 0 and b> 0 and c> 0 and d< 0 and e> 0 then write('',все ваши числа положительные кроме числа d) else if a> 0 and b> 0 and c< 0 and d> 0 and e> 0 then write('',все ваши числа положительные кроме числа c) else if a> 0 and b< 0 and c> 0 and d> 0 and e> 0 then write('',все ваши числа положительные кроме числа b) else if a< 0 and b> 0 and c> 0 and d> 0 and e> 0 then write('',все ваши числа положительные кроме числа a) else if a> 0 and b> 0 and c> 0 and d< 0 and e< 0 then write('',все ваши числа положительные кроме числа d и e) else if 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 и т.д. поставь в скобки

Потенциально нежелательные программы - программы, которые не рекомендованы для запуска на вашем устройстве, т.к. могут навредить   вашему компьютеру. могут пострадать многие системные файлы, также может быть  потеряна важная информация без возможности восстановления и множество других нежелательных для вас действий.проще говоря - это программы-вирусы.чтобы избежать заражение компьютера подобными программами, рекомендуется установить специальные утилиты для защиты вашего пк (антивирусы) от потенциально нежелательных программ.