viết chương trình kiểm tra số nhập vào là số dương hay số âm

2 câu trả lời

Program bai_lam;

uses crt;

var a:integer;

Begin

Write('nhap gia tri cho a');readln(a);

If a>0 then write('a la so duong');

           else write('a la so am')

Readln;

End.

uses crt;

var a:integer;

begin

clrscr;

write('nhap so a ='); readln(a);

if a> 0 then writeln('a la so duong ') else

writeln('a la so am ');

readln;

end.