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

1. максимальное чётное

2. минимальное нечётное

Begin

write ('Максимальное четное число типа integer = ') ;

if MaxInt mod 2=0 then writeln (MaxInt) else writeln (MaxInt-1) ;

write ('Минимальное нечетное число типа integer = ') ;

if (-1-MaxInt) mod 20 then writeln (-1-MaxInt) else writeln (0-MaxInt) ;

end.

Результат:

Максимальное четное число типа integer = 2147483646

Минимальное нечетное число типа integer = - 2147483647