PascalABC
Вводится три числа определить является ли чётным/нечётным и положительным/отрицательным/нулём наименьшее из них
> 4 3 -1
>>нечетное, отрицательное

> 15 8 23
>>чётное, положительное

>12 0 17
>>чётное, ноль

var a,b,c,m: integer; begin readln (a,b,c);m:=a;if b<m then m:=b;if c<m then m:=c;if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');if m = 0 then write('ноль') elseif m > 0 then write('положительное') else write('отрицательное')end.