задача pascal. Ввести N чисел и число K. Проверить, что сумма остатков от деления нечетных Х на К, больше суммы остатков деления..

[N.i.k.o.l.a.y.]

Доброго времени суток! Вообще не понимаю задачу... Помогите пожалуйста.
Ввести N чисел: х1,х2.....Хn (N=>3) и число K. Выяснить, правда ли, что сумма остатков от деления нечетных Х на К будет больше чем сумма остатков от деления чётных Х на К?
Помогите пожалуйста.. Заранее спасибо)

[Bugrimov]

У Вас всего 3 числа вводится?

[Stilet]

var k,xa,xb,n,v:integer;
begin
 readln(n);readln(k);
 while n>0 do begin
  readln(v);
  if (v mod 2)=0 then xa:=xa+(v mod k) else xb:=xb+(v mod k);
  dec(n);
 end;
 if xa>xb then write('Правда - ложь, да в ней намек'); readln;
end;

Идея ясна?

[N.i.k.o.l.a.y.]

Вот условие... Последние 2 осталось... Вообще не пойму че делать...

Screenshot_2014-11-17-13-04-45.jpg

[Mad_Cat]

а можно избавиться от xb)

if (v mod 2)=0 then xa:=xa-(v mod k) else xa:=xa+(v mod k);
....
if xa>0 then write('Правда - ложь, да в ней намек'); readln;
...

и да

сумма остатков от деления нечетных Х на К будет больше чем сумма остатков от деления чётных Х на К

у вас же наоборот, имею мнение