Bài 1:

Uses crt;
Var a,b: integer;
Begin
    clrscr;
    write('Nhap so nguyen thu nhat: '); readln(a);
    write('Nhap so nguyen thu hai: '); readln(b);
    if a mod b = 0 then writeln(b,' la uoc cua ',a)
        else if b mod a = 0 then writeln(a,' la uoc cua ',b)
            else writeln(a,' va ',b,' khong phai la uoc cua nhau');
    readln;
End.

Bài 4:

Uses crt;
Var t,n,d: integer;
Begin
    clrscr;
    write('Nhap thang: '); readln(t);
    write('Nhap nam: '); readln(n);
    if t>7 then 
        if t mod 2 = 0 then d:=31 else d:=30
    else
        if t mod 2 = 0 then d:=30 else d:=31;
    if t=2 then if n mod 4 = 0 then
        begin
        d:=29;
        if n mod 100 = 0 then if n mod 400 <> 0 then d:=28;
        end;
    writeln('Thang ',t,' nam ',n,' co tat ca ',d, ' ngay');
    readln;
End.

Bài 5:

Uses crt;
Var n,i: integer;
Begin
    clrscr;
    write('Nhap mot so nguyen duong: '); readln(n);
    write('Cac uoc so cua ',n,' la: ');
    for i:=1 to n do 
        if n mod i=0 then write(i,' ');
    readln;
End.