procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
  n:=strtointdef(edit1.Text,1);
  if n=0 then
  begin
    showmessage('Число n =0');
    exit;
  end;
 
  if (n mod 2)=0 then
  begin
    if n<0 then showmessage('Число n чётное отрицательное')
    else showmessage('Число n чётное положительное')
  end else if n<0 then showmessage('Число n нечётное отрицательное')
  else showmessage('Число n чётное положительное')
end;