:D 4 bài đầu trước nha em.

Bài 1: program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   if i mod 2 = 0 then write(i:4);
   readln
end.

Bài 2: program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   if i mod 2 = 1 then write(i:4);
   readln
end.

Bài 3: program Min;
uses crt;
var i,n,S:integer;
begin
   clrscr;
   S:=0;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   if i mod 2 = 1 then S:=S+i;
   write('Tong cac so le nho hon hoac bang ',n,' la: ',S);
   readln
end.

Bài 4: program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Cac uoc cua ',n,' la: ');
   for i:=1 to n do
   if n mod i = 0 then write(i:4);
   readln
end.

Bài 1:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        i:=2;
        While i<=n do
        Begin
                Write(i,' ');
                inc(i,2);
        End;
        Readln
End.
Bài 2:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        i:=1;
        While i<=n do
        Begin
                Write(i,' ');
                inc(i,2);
        End;
        Readln
End.
Bài 3:
Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        i:=1;
        While i<=n do
        Begin
                s:=s+i;
                inc(i,2);
        End;
        Write('S = ',s);
        Readln
End.
Bài 4:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
                If n mod i = 0 then Write(i,' ');
        Readln
End.
Bài 5:
Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n div 2 do
                If n mod i = 0 then s:=s+i;
        If s=n then Write('Hoan hao')
        Else Write('Khong hoan hao');
        Readln
End.

Bài 6:

Program FNG;
Uses crt;
Var n,i,s,j: longint;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                s:=0;
                For j:=1 to i do
                        If i mod j = 0 then s:=s+j;
                If s=2*i then Write(i,' ');
        End;
        Readln
End.

Bài 7:

Program FNG;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Bang cuu chuong: '); Readln(n);
        For i:=1 to 10 do
                Writeln(n,' x ',i,' = ',n*i);
        Readln
End.