Viết chương trình vào một số nguyên a (a#0) và đưa ra màn hình kết luận a là số âm hay dương
1 câu trả lời
Program Hotboy;
Uses crt;
Var a: integer;
Begin
Clrscr;
Write('nhap a');
Readln(a);
While a<>0 do
Begin
If a>0 then write(a,'la so duong')
Else
Write(a,'la so am');
Readln
End.
