b) Chương trình:

Program BTT;
Uses crt;
Var a: real;
Begin
        Clrscr;
        Write('Nhap so thuc: '); Readln(a);
        If a > 0 then Write('So duong');
        If a < 0 then Write('So am');
        If a = 0 then Write('Khong phai so am, khong phai so duong');
        Readln
End.