program bai1;

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap so thu nhat: ');   readln(a);

write('NHap so thu hai: ');    readln(b);

if a mod b=0 then write(b,' la uoc cua ',a)

 else if b mod a=0 then write(a,' la uoc cua ',b)

   else write('khong la uoc cua nha');

readln

end.

program bai2;

uses crt;

var n:longint;

begin

 clrscr;

write('Nhap nam: ');    readln(n);

if n mod 4=0 then write('Day la nam nhuan')

   else write('Day khong phai nam nhuan');

readln

end.

Bài 1

var a, b: integer

begin

Write ('Nhap so a:`); readln (a);

Write ('Nhap so b:'); readln (b);

If a mod b = 0 then write ('b la uoc cua a');

If b mod a = 0 then write ('a la uoc cua b');

If (a mod b <> 0) or (b mod a <> 0) then write ('Hai so khong phai uoc cua nhau');

readln

end.

Bài 2

var nam: integer;

begin

Write ('Nhap nam can kiem tra:'); readln (nam);

If nam mod 4 = 0 then write ('Day la nam nhuan');

If nam mod 4 <> 0 then write ('Day khong phai nam nhuan);

readln

end.

@vietkiku