Найти максимальный среди отрицательных и произведение нечетных чисел - Pascal ABC - Ответ 7696205

var m, p, n: integer;
begin
  writeln('Enter numbers, 0 to end');
  m := 0;
  p := 0;
  repeat
    write('? ');
    readln(n);
    if n < 0
      then if m = 0
        then m := n
        else if n > m
          then m := n;
    if odd(n)
      then if p = 0
        then p := n
        else if (abs(p) > maxint div 2) and (abs(n) > 1)
          then begin
            write('Integer overflow detected, press <Enter> to terminate');
            readln;
            exit
          end
          else p := p * n
  until n = 0;
  if m = 0
    then writeln('Negative numbers not found')
    else writeln('Max negative number = ', m);
  if p = 0
    then writeln('Odd numbers not found')
    else writeln('Product of odd numbers = ', p);
  write('Press <Enter> to exit');
  readln
end.