viết chương trình nhập vào 2 số nguyên từ bàn phím và kiểm tra xem 2 số đó có phải là 2 số nguyên dương hay không

1 câu trả lời

uses crt;

var a:integer;

begin

clrscr;

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

if a<0 then writeln(a,' la so am')

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

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.