чётность и нечётность

[guffer]

Подскажите почему не работает код

procedure TForm1.Button1Click(Sender: TObject);
var
 a : integer;
begin
 try
 a := StrToInt(edit1.Text);
 except
  begin
   ShowMessage('введите,натуральное ЦЕЛОЕ число');
   exit;
  end;
 end;
 if (a mod 2)=0 then
 begin
  a < 0 \\тут проблема
 end
 else
  a > 0; \\и тут проблема
 end;

[raxp]

a < 0 \\тут проблема

...и шо вы этим хотели сказать?

[guffer]

компилятор на эту строку ругается..

[Disel]

Что должен выполнить этот код программы? Если определить четность нечетность то зачем A сравнивать с НУЛЕМ? Вы задание скажите, что требуется сделать.

[guffer]

Код для решения этой задачи:

Выписаны числа от 1 до N по порядку. Между каждой парой соседних чисел попеременно расставлены знаки "+" и "-". Надо найти чему равно значение выражения.
Например, для N=12 будет так: +1-2+3-4+5-6+7-8+9-10+11-12=-6.
Задача:
С клавы вводится(в Edit1)число N(1<=N<=32000).
В Edit2 выводится значение.

[ОДИНОЧЕСТВО В СЕТИ]

n:=strtoint(edit1.text);
s:=0;
for i:=1 to n do
if i mod 2 <> 0 then s:=s+i
else s:=s-i;
edit2.text:=inttostr(s);