Thuật toán:
B1: Nhập số nguyên n
B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.
B3. Kết thúc
Chương trình:
uses crt;
var n: integer;
begin
write('Nhap so N: '); readln(n);
if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');
end.