B1:

uses crt;

var a,b:integer;

begin

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

if a=b then writeln('a=b') else if a>b then writeln('a>b') else writeln('a<b');

readln;

end.

B2:

uses crt;

var a:integer;

begin

write('nhap so nguyen duong: ');readln(a);

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

readln;

end.

$\text{Bài 1 :}$

$\text{program sksk;}$

$\text{uses crt;}$

$\text{var a, b : integer;}$

$\text{begin}$

$\text{clrscr;}$

$\text{write('nhap so nguyen a :');readln(a);}$

$\text{write('nhap so nguyen b :');readln(b);}$

$\text{if a > b then writeln(a,' lon hon ', b);}$

$\text{if a < b then writeln(a,' be hon ', b);}$

$\text{if a = b then writeln(a,' bang ', b);}$

$\text{readln}$

$\text{end.}$

$\text{Bài 2 :}$

$\text{program sksk;}$

$\text{uses crt;}$

$\text{var a : integer;}$

$\text{begin}$

$\text{clrscr;}$

$\text{write('nhap so nguyen duong :');readln(a);}$

$\text{if a mod 2 = 0 then writeln(a,' la so chan')}$

$\text{else writeln(a,' la so le');}$

$\text{readln}$

$\text{end.}$