Câu 11:

Program NN;
Uses crt;
Var x,y: longint;
Begin
        Clrscr;
        Write('Nhap x, y: '); Readln(x,y);
        If x>y then Write(x,' > ',y)
        Else If y>x then Write(y,' > ',x)
        Else Write('Bang nhau');
        Readln
End.

Câu 12:

Program NN;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a>0 then Write('YES')
        Else Write('NO');
        Readln
End.

Câu 13:

Program NN;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a<0 then Write('YES')
        Else Write('NO');
        Readln
End.

Câu 11 :

uses crt;

var x, y : integer;

begin

clrscr;

write('Nhap hai so nguyen x, y : '); readln(x, y);

if x <> y then

if x > y then write(x > y) else write(x < y)

else write('x = y');

readln

end.

Câu 12 :

uses crt;

var a : integer;

begin

write('Nhap so a : '); readln(a);

if a > 0 then write('a la so duong')

else write('a khong la so duong');

readln

end.

Câu 13 :

uses crt;

var a : integer;

begin

write('Nhap so a : '); readln(a);

if a < 0 then write('a la so am')

else write('a khong la so am');

readln

end.