bài 1:

program bai_giai;

uses crt;

var a:longint;

begin

clrscr;

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

if(a>0)then write('a la so duong')else write('a la so am');

if(a=0)then write('a bang 0');

readln;

end.

_________________________________________________________________

bài 2:

program bai_giai;

uses crt;

var a,b:longint;

begin

clrscr;

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

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

if(a=b)then write(a bang b');

readln;

end.

______________________________________________________________

bài 3:

program bai_giai;

uses crt;

var a:longint;

begin

clrscr;

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

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

readln;

end.

__________________________________________

bài 4:

program bai_giai;

uses crt;

var b:longint;

begin

clrscr;

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

if(b mod 5=0)then write('b chia het cho 5')else write('b ko chia het cho 5');

readln;

end.

1)

uses crt;

var a:longint;

begin

clrscr;

readln(a);

if a<0 then wrire(a,' la so am') else write(a,'la so duong');

if a=0 then write(a,'la so 0');

readln;

end.

2)

uses crt;

var a,b:longint;

begin

clrscr;

write('a,b');

readln(a,b);

if a>b then write(a,'>',b) else write(a,'<',b);

if a=b then write(a,'=',b);

readln;

end.

3)

uses crt;

var a:longint;

begin

clrscr;

write('a');readln(a);

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

readln

end.

4)

uses crt;

var b:longint;

begin

clrscr;

write('b');readln(b);

if a mod 5=0 then  write(a,'chia het cho 5') else write(a,'khong chia het cho 5');

readln

end.