Viết chương trình nhập vào 2 số nguyên a,b. Hãy cho biết trong 2 số vừa nhập có số nào dương hay không?

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap hai so a, b : '); readln(a, b);

if a > 0 then write('Co so ', a ,' duong')

else if b > 0 then write('Co so ', b ,' duong')

else write('Khong co so duong');

readln

end.

Program Baitap;

Uses crt;

Var a,b: integer;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

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

If b>0 then writeln('b la so duong');

If (a<=0) and (b<=0) then writeln('Ca a va b khong phai la so duong');

Readln

End.