Bài tập 2:

uses crt;

var a,b:integer;

begin

clrscr;

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

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

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

else if (a < b) then write(a,' be hon ',b)

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

readln;

end.

Bài tập 3:

uses crt;

var n:integer;

begin

clrscr;

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

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

else write(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);

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.