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

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.

#include <iostream>
using namespace std;
int main()
{
cout <<"4,4"<<endl;cout <<"4,5"<<endl;cout <<"4,6"<<endl;cout <<"4,7"<<endl;cout <<"4,8"<<endl;cout <<"4,9"<<endl;cout <<"5,0"<<endl;cout <<"5,1"<<endl;cout <<"5,2"<<endl;cout <<"5,3"<<endl;cout <<"5,4"<<endl;cout <<"5,5"<<endl;cout <<"5,6"<<endl;cout <<"5,7"<<endl;cout <<"5,8"<<endl;cout <<"5,9"<<endl;cout <<"6,0"<<endl;cout <<"6,1"<<endl;cout <<"6,2"<<endl;cout <<"6,3"<<endl;cout <<"6,4"<<endl;
}

1. множество символов для записи текста называют алфавитом

2 полное количество символов в алфавите называют мощностью

3 за единицу информации при алфавитном подходе принято считать вес 1 символа алфавита

4 2

5 это вес 1 символа в двухбитном алфавите

6 информационный объем определяется по формуле I=K*i, где к-количество символов в тексте, а i - вес одного символа

7 8 бит

8 256 символов

9 потому, что он строится только на мощности алфавита

10 N- мощность алфавита, i -вес одного символа

11 алфавитный подход к измерению информации позволяет определить количество информации, заключенной в тексте

12 N=2^i

13 I=K*i, где К -количество символов в тексте, а i - вес одного символа

14 при алфавитном подходе смысл сообщения не учитывается, важно только какой алфавит использовался

15 количество информации, заключенное в сообщении, определяется объемом знаний, который несет это сообщение получающему его человеку. Сообщение содержит информацию для человека, если заключенные в нем сведения являются для этого человека новыми и понятными и, следовательно пополняют его знания.

16 сообщение, уменьшающее неопределенность знаний в два раза, несет для него 1 бит информации.

17