Tìm lỗi trong chương trình và sửa lỗi chương trình cho đúng

Bài 1_Tìm lỗi trong chương trình và sửa lỗi chương trình cho đúng:
Tính tổng các số tự nhiên từ 100->1000(Vòng lặp với số lần chưa biết).
Program  tinh_tong;
Var       i S: Integer;
Begin
    i: 100
   S = 0;
   While i> 1000 do
           S:= S+i
            i:= i+i;
            Writeln('Tobg cac so tu nhien tu 100 den 1000 la:',S);  Readnl;
End.
Bài 2_Viết chương trình nhập vào một mảng các số nguyên.Ghi ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng.
Bài 3_Viết chương trình tính tổng:
S=1+2+3+.....+n
Viết chương trình tính tổng:
Bài 4_Viết chương trình tính tổng:
S=1+1/2+1/3+1/4+.......+1/n
Viết chương trình tính tổng: