Bài 5:

Program FNG;
Uses crt;
Var i: longint;
Begin
        Clrscr;
        For i:=1 to 2 do Writeln('Chao ban. Ban co khoe khong!');
        Readln
End.

Bài 6:

Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                If i mod 2 = 0 then s:=s+i;
        Write('S  = ',s);
        Readln
End.

Bài 7:

Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                If i mod 2 = 1 then s:=s+i;
        Write('S  = ',s);
        Readln
End.

Bài 8:

Program FNG;
Uses crt;
Var n,i: longint;
    s: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                s:=s+1/(i+2);
        Write('S  = ',s:0:2);
        Readln
End.

Bài 2: $C$

Bài 3: Cho $i$ chạy từ $1$ đến $1000$

Bài 4: $j=12$

Bài 5:

$Program tin_hoc;$
$uses crt;$
$var i: longint;$
$begin$
        $clrscr;$
        $for i:=1 to 2 do Writeln('Chao ban. Ban co khoe khong!');$
        $readln$
$end.$

Bài 6:

$Program tin_hoc;$
$uses crt;$
$var n,i,s: longint;$
$begin$
        $clrscr;$
        $write('Nhap n: '); readln(n);$
        $s:=0;$
        $ror i:=1 to n do$
                $if i mod 2 = 0 then s:=s+i;$
        $write('S  = ',s);$
        $readln$
$end.$

Chúc bạn học tốt ^^