Câu a:

uses crt;
var a,b :integer;
begin
        clrscr;
        write('nhap so a: ');readln(a);
        write('nhap so b: ');readln(b);
        if a > b then
        if a mod b = 0 then write('a chia het cho b')
        else write('a khong chia het cho b');
        readln;
end.

Câu b:

uses crt;
var a,b :integer;
begin
        clrscr;
        write('nhap so a: ');readln(a);
        write('nhap so b: ');readln(b);
        if a mod 2 = 0 then write('a chia het cho 2: ');
        if a mod 3 = 0 then write('a chia het cho 3: ');
        if a mod 5 = 0 then write('a chia het cho 5: ');
        if b mod 2 = 0 then write('b chia het cho 2: ');
        if b mod 3 = 0 then write('b chia het cho 3: ');
        if b mod 5 = 0 then write('b chia het cho 5: ');
end.

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap hai so a, b : '); readln(a, b);

if a > b then begin

writeln('a lon hon b');

if a mod b = 0 then writeln('a chia het cho b')

else writeln('a khong chia het cho b'); end;

if b > a then begin

write('b lon hon a');

if b mod a = 0 then writeln('b chia het cho a')

else writeln('b khong chia het cho a'); end;

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

if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0)

and (b mod 2 = 0) and (b mod 3 = 0) and (b mod 5 = 0)

then writeln('a, b chia het cho 2, 3, 5')

else writeln('a, b khong chia het cho 2, 3, 5');

readln

end.