gistfile1.pas

program n1;
var a:Integer;
begin
Readln(a);
 if a>0 then begin
  if a mod 2 = 0 then
  writeln('Число положительное и четное')
  else
  writeln('Число положительное и нечетное');
  end
 else begin
   if a<0 then begin
    if a mod 2 = 0 then begin
    writeln('Число отрицательное и четное')
    end
    else 
    writeln('Число отрицательное и нечетное')
    end
   else
    writeln('Число равно нулю')
 end;
end.