Как написать простую программу в Паскале, чтобы найти:
1. максимальное чётное
2. минимальное нечётное

beginwrite('Максимальное четное число типа integer = ');if MaxInt mod 2=0 then writeln(MaxInt) else writeln(MaxInt-1);write('Минимальное нечетное число типа integer = ');if (-1-MaxInt) mod 2<>0 then writeln(-1-MaxInt) else writeln(0-MaxInt);end.Результат:Максимальное четное число типа integer = 2147483646Минимальное нечетное число типа integer = -2147483647