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.