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 dương: '); 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.