Bài 1:
Program BTT;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write('Nhap hai so a va b: '); Readln(a,b);
If a<b then Write(a,' < ',b)
Else If a>b then Write(a,' > ',b)
Else Write(a,' = ',b);
Readln
End.
Bài 2:
(Mình không hiểu lắm, xét a là lẽ hay chẵn thì nhập b làm gì nhỉ? Mình làm nhập a thôi nhé!)
Program BTT;
Uses crt;
Var a: longint;
Begin
Clrscr;
Write('Nhap so a: '); Readln(a);
If a mod 2 = 0 then Write(a,' la so chan')
Else Write(a,' la so le');
Readln
End.