1.

for-do: Ở dạng lặp tiến, câu lệnh viết sau từ khóa phải thực hiện tuần tự, với biến đếm lần lượt nhận giá trị từ giá trị đầu đến giá trị cuối.

while-do: Câu lệnh viết sau từ khóa do được thực hiện khi biểu thức điều kiện còn nhận giá trị true. Biểu thức điểu kiện được tính giá trị trước khi câu lệnh được thực hiện, nhưng nếu biểu thức điểu kiện đã nhận giá trị false ngay từ đầu thì câu lệnh không được thực hiện lần nào. Nếu biểu thức điều kiện luôn nhận giá trị true thì câu lệnh được thực hiện mãi, ta gọi là vòng lặp vô hạn.
2.

program oken;

uses crt;

var a,i,n: longint;

      s: real;

begin

clrscr;

write('nhap a: '); readln(a);

write('nhap n: '); readln(n);

s:=a;

while a/(a-n)>=0,001 do

       for i:=1 to n do

              s:=s+ a/(a-i);

writeln('S=',s:0:3);

readln;

end.