1.nhập vào từ bàn phím 2 số tự nhiên a và b . So sánh và in ra kết quả lên màn hình 2. nhập vào từ bàn phím số tự nhiên a và b . Hãy cho biết a là số chẵn hay lẻ lên màn hình

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.