pascal Como imprimir números negativos no Pascal ?

[Alexah 0]

Program Cont ;
var
  N, cont  :    integer;
Begin
    cont    := 1;
    writeln('Informe o valor de N');
    readln(N);
    while(N > 10000) do
    begin
        writeln('Valores Invalidos');
        readln(N);
    end;