Что не так? (сравнить что больше сумма положительных или произведение отрицательных)

program ee;

var n,i,kolp,kolo: integer;

sum,po,a: real;

begin

writeln ('сколько чисел вы будете вводить? ','');

readln (n);

sum: =0;

po: =1;

kolp: =0;

kolo: =0;

for i: =1 to n do

begin

writeln ('введите число,нажмите enter');

readln(a);

if a< 0 then begin inc(kolo);

po: =po*a; end;

if a> 0 then begin inc(kolp);

sum: =sum+a; end;

if a=0 then continue;

end;

if (sum=1) and (kolo> =1) then writeln ('произведение отрицательных') else

if (sum=po) and (kolp> =1) and (kolo> =1) then writeln ('произведение отрицательных равно сумме положительных')else

if (kolp=0) and (kolo=0) then writeln ('кажется, что вы ввели все нули')else

if (kolp=0) or (kolo=0) and (sum=0) or (po=1) then writeln ('нельзя совершить подсчет,нужно ввести ак миниум 2 положительных и два отрицательных числа');

end.

•         электронная почта (E-mail), обеспечивающая возможность обмена сообщениями одного человека с одним или несколькими абонентами;

•         сервис FTP – система файловых архивов, обеспечивающая хранение и пересылку файлов различных типов;

•         World Wide Web (WWW) – гипертекстовая (гипермедиа) система, предназначенная для интеграции различных сетевых ресурсов в единое информационное сервис DNS, или система доменных имен, обеспечивающий возможность использования для адресации узлов сети мнемонических имен вместо числовых адресов;

•         сервис IRC, предназначенный для поддержки текстового общения в реальном времени (chat); и др.

это основное если что то есть еще я добавлю

Одним из самых обоснованных расчета идеального веса считается формула Брока. Она учитывает соотношение веса, роста и возраста человека. С возрастом вес женщины и мужчины должен постепенно увеличиваться – это нормальный физиологический процесс. И килограммы, которые некоторые могут считать "лишними", на самом деле таковыми могут и не являться. Формула Брока для не достигших сорокалетия равна "рост (в см) - 110", после сорока лет – "рост (в см) - 100". При этом хрупким худощавым людям – астеникам – из результата нужно вычесть 10%, а обладатели массивного телосложения – гиперстеники – должны 10% к нему прибавить.  

Формула Брока для расчета идеального веса с учетом возраста:  

до 40 лет (кг) = рост (см) – 110

после 40 лет (кг) = рост (см) – 100

После этого астеники вычитают 10%, а гиперстеники прибавляют 10%.

Пример расчета:

Возраст – 30 лет

Рост – 168 см

Идеальный вес = 168 – 110 = 58 (кг)

как-то так