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.

1/ var a,b:longint;

begin

write('nhap a,b'); readln(a,b);

if a>b then write(' a>b');

if a<b then write('a<b') else write('a=b');

readln;

end.

2/

var a,b:longint;

begin

write('nhap a,b'); readln(a,b);

if a mod 2 = 0 then write('a la so chan') else write(' a la so le')

readln;

end.