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.