Помоите с задачей по информатике на паскале

Question

Входной файл: input.txt
 
 Ограничение времени на тест: 1 сек

Выходной файл: output.txt
 
 Ограничение памяти на тест: 8 Мб

Условие

Даны три числа a, b, c. Если их сумма - четное число, то вывести самое меньшее из них, если сумма - нечетное, то – наибольшее.

Формат входного файла

Входной файл содержит три целых числа

Формат выходного файла

Выходной файл должен содержать одно целое число

Ограничения

0 ≤ a, b, c ≤ 1000

Денис · Accepted Answer

var
n, a, b, c: integer;

begin
writeln('Введите a,b,c');
readln(a, b, c);
if a >= 0 then
begin
if a <= 1000 then
begin
if b >= 0 then
begin
if b <= 1000 then
begin
if c >= 0 then
begin
if c <= 1000 then
begin
n := a + b + c;
n := n mod 2;
if n = 0 then
begin
if a < b then
begin
if a < c then write(a) else write(b);
end;
if b < a then
begin
if b < c then write(b) else write(c);
end;
end;
if n <> 0 then
begin
if a > b then
begin
if a > c then write(a) else write(b);
end;
if b > a then
begin
if b > c then write(b) else write(c);
end;
end;
end;
end;
end;
end;
end;
end;
readln;
end.