输入一系列整数，以0作为结束标志，统计其中有多少个正数，多少个负数？

program divisor;
var
   temp, num, min, max, sum, avg, positive, negative  : integer;
begin
     write('Please enter some integers (0 for end): ');
     read(temp);
     min := temp;
     max := temp;
     while temp <> 0 do
     begin
           num := num+1;
           if temp > max then max := temp;
           if temp < min then min := temp;
           if temp > 0 then positive := positive+1;
           if temp < 0 then negative := negative+1;
           sum := sum+temp;
           read(temp);
     end;
     if num <> 0 then write('max: ', max, '  min: ', min, '  sum: ', sum, '  avg: ', sum/num:0:2, '  positives: ', positive, '  negatives: ', negative);
     readln;
     readln;
end.