Bài 2 :

uses crt;

var a, b : integer; 

begin

clrscr;

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

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

if a > b then writeln(a,' lon hon ', b);

readln

end.

Bài 3 :

uses crt;

var n : integer;

begin

clrscr;

write('nhap so nguyen n :');readln(n);

if n mod 2 = 0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln

end.

Bài 2 :

uses crt;

var a, b : integer;

begin

clrscr;

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

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

if a > b then writeln(a,' lon hon ', b)

else 

if a < b then writeln(a,' nho hon ', b)

else writeln(a,' bang ', b);

readln

end.

`+` bài 2:

program bestanhvan;

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

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

readln;

end.

`+` bài 2:

program bestanhvan;

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if a>b then write('a lớn hơn b');

if a<=b then write('a nhỏ hơn hoặc bằng b');;

readln;

end.

`+` bài 3:

program bestanhvan;

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n mod 2 = 0 then write('N la so chan');

if n mod 2 <> 0 then write('N la so le');

readln;

end.