PascalABC Вводится три числа определить является ли чётным/нечётным и...

Question

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

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

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

---

Answer 1

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