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

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.

богдан254    3   27.11.2019 15:03    2