Отправлено: 28.05.13 16:49. Заголовок: C4 №43

Здравствуйте!
Правильно ли будет, если в данной задаче искать 3 наименьших числа?
Если взять любые 3 числа, то возможны случаи:
*первые два четны или нечетны - сумма четна;
*первые два разной четности - тогда сумма первого и второго или второго и третьего четна.
Вот текст программы:
var a,b,c,d,i,n:integer;
begin
readln(n);
a:=30001;
b:=30001;
c:=30001;
for i:=1 to n do
begin
readln(d);
if d<a then a:=d
else if (d>=a) and (d<b) then b:=d
else if (d>=b) and (d<c) then c:=d;
end;
if a+b mod 2=0 then writeln(a+b)
else if (a+c mod 2=0) and (c<>30001) then writeln(a+c)
else if (b+c mod 2=0) and (c<>30001) then writeln(b+c)
else if n=2 then writeln(a+b);
end.