Viết chương trình nhập từ bàn phím số nguyên n.hãy cho biết n là số dương hay số âm

Program BTT;
Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        If n>0 then Write(n,' la so nguyen duong')
        Else If n<0 then Write(n,' la so nguyen am')
        Else Write(n,' khong phai la so nguyen am va duong');
        Readln
End.

program ctpt;

uses crt;

  var n: integer;

begin

      clrscr;

      write('Nhap n = '); readln(n);

      if n=0 then write(n, ' khong la so nguyen duong hay am') else

            if n>0 then write(n, ' la so nguyen duong') else

                      write(n, ' la so nguyen am');

      readln

end.