uses crt;

var a, kp, ko, i: integer;

label 1;

begin

    for i:=1 to 6 do

    begin

    writeln ('Введите число');

    readln(a);

    if a>0 then inc(kp) else inc(ko);

    end;

    if kp>ko then writeln ('Положительных чисел больше') else writeln ('Отрицательных чисел больше');

end.

Объяснение: